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ABSTRACT 

Trade studies of numerous appliance concepts for advanced spacecraft galley, 
personal hygiene, housekeeping, and other areas were made by the Boeing 
Aerospace Company, Contract NAS 9-13965, to determine vjhich best satisfy the 
Space Shuttle Orbiter and Modular Space Station mission requirements. In 
conjunction with these studies, analytical models of selected appliance 
concepts not currently included in the G-189A Generalized Environmental/ 
Thermal Control and Life Support Systems (ETCLSS) Computer Program sub- 
routine library were developed. This document describes the new appliance 
subroutines with complete analytical model descriptions, solution methods, 
user's input instructions, and validation run results. The appliance 
components modeled were integrated with G-189A ETCLSS models for Shuttle 
Orbiter and Modular Space Station, and results from computer runs of these 
systems are presented,. 
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I «E-9) 
1 .C-V) 
GT, I 



rI 100>=»3*R 

R ( l03 > =3 . 0 
,E-9) GO TO 5 


> AND. 
• AN0< 


NSTR(6).EQ.0) 
NSTr(A).EQ.I ) 


RdORji 

•RdOR). 


:« 10 « 

RI 102) 


IF 

IF 

IF 

IK 

)r 

IF 

IF 

Ir 

IF 


.0001 I 

.cool ) 


IHSTHd )«NSTRd) .EQ 


t R dCO > 
t K t n B ) 

I R d d. » 

I f!t I i V ) 
<R(1?C) 
t AKSI RCI21 ) ) 

(Steaoy) go 


.LT, 
.LT, 
.LT, 
■ LT, 
.LT, 


I .E-9) 
1 .f>9) 
I .E-9) 

.cool ) 

I .L-9 I 
.LT. 1 
TIj 2tJ 


RI 1o 6)=75.*3.‘»12 
R I lrj7 > =5 . 

.1 ) RI lD7)aO. 

Rl lO0>“l *0 
RI I |5)=.5 
Rlllfil^.S 

R I I I 9 ) =.R9 

RI120)=*|29 
E-91 Rll2I)o97. 


KINKT + *l)eIFIX I T1ME/3&00.72H , 1 
IF IKINKT+1) .EQ, 0) K(NKT+1)=125 
If IR|51)«GT. 32.D0001) R||l7laO« 
IF IRtSD.LT. 31 .99999) Rlil7)t=i, 
IF IRI7G).GT. 32.00001) R ( | 1 0 ) =0 . 


CH1LR02B 
CHILR029 
CHILR030 
CHtl.nr3 ) 
CH I LRn32 
CHUR033 
CHtL«03‘« 
CH IL R035 
Cw ILR03A 
CHILR037 
CHiLR'iTfl 
CHILR039 
CHiLRO'tO 
CmIURO'U 
ChILRO'12 
CHILR0M3 
chilRorr 

CH 1 L RH'iS 
CH 1 L Rn'»6 
CH 1 1 Rn'17 
CH 1 1 RO'IO 

ChILRO'IR 
CHiLHOSn 
CHlLHnSl 
CHiLRn'.Z 
Ch I L Rr53 
CHILRO'^R 
CH 1 LFP'iS 
ChIL» 056 
CH I LHP57 
CHlLRnSfl 
CHlLR0'J9 
CH lLRr,60 
CHUHOAI 
CHll.RnA2 
CH 1 1. R'>93 
CH I LRnA'I 
CHll HnA5 
CHILRQ66 
CHUHOA? 
CkILROAB 
C H I L n n A 9 
CHILR070 
CHIURCTI 
CHILRP72 
CHILRC73 
CH1LRQ7R 
CHUR075 
ChIlR 07A 
CH 1 LRp77 
CHILR07S 
CHURC79 
CH1LRP''0 
CHlLRom 
CH I LRq82 
CHILR0B3 
Ch IlRoRh 
CH I LRPAB 




D 2 -II 857 I -2 


/ ■ 


00265 

0C267 

00270 

00273 

002 7b 
0D276 
O03QO 

0030 1 
00305 
00 306 
00307 
00310 

003 I 0 
00310 
00310 

0031 I 
003 12 
003 1 3 
0G3I'< 
003 15 
003 17 

0032 1 
00323 
0032H 
D0327 

0033 1 
00333 

00335 

00336 

00337 
OOBH I 
0D3H2 
003H3 
003H5 
003H7 
DC35 1 

00352 

00353 

00355 

00356 
00360 
0036 1 
0C362 
00363 
0036** 

00365 

00366 

00367 
00370 
C037 I 
00 3 72 
003 7'! 
00375 
00375 
00375 

00375 

00376 

00377 


86<» 



If (R1751.UT 

07* 


20 

Pi 1 )=A 1 1 1 

OH * 



DO 30 L=3,19 

0^^* 


30 

R(LI«A (L> 

90* 



R(3)aA(9) 

9 I » 



IF (NEWDT .L 

92* 



R(2)=A(2) 

93* _ 



IF (NSTR(17) 

9H * 


^0 

Format <///* 

9b* 



LFLA6=-2 

96* 



G|REJ“0. 

97* .. 



R( 1091=0. 

9H« 




99* 

C 


FAN and C 


100 » 
lOl • 

I 02“ 
l03« 
lOMo 
E 05* 
» 06 * 
lO/» 

ion* 
lo*?* 
I I 0“ 
111“ 
112“ 
113* 
I 1 

115» 
116* 
117* 
I ie« 
I 1 9“ 
120 “ 
121“ 
I 22“ 
123“ 
I 2 'I* 
1 25“ 
126“ 
127“ 
12P“ 
129“ 
130“ 
131“ 
132* 
I 33“ 
1 3H“ 
135“ 
136“ 
13 7“ 
13H* 
1 39“ 
1 H0“ 
191* 
192“ 
193“ 


60 

65 

67 


68 

70 

BO 

90 

98 

99 


COMPONENT NO,»i I S »'• “'CHECKOUT ' OF CHlLLRt/V 


Hc = Ct . 

CHll.R = »F AUSE* 

F AN = . F ALSE < 

?F*^(NSTR(2) .6T, C) PFANF=R(B9)*(R(87)-R151 1 ) , 

If (STEADY! GO TO 67 , , ^ 

IF ( NSTR ( I ) tEO. 1 .OR. NSTR(2>»EQ» 2) GO TO 60 
60 TO 6B 

IF (NSTR( 31-11 65* 70 » 8 0 

IF (R( 1 13) .LT. .5> GO TO 68 . 

■ EQ. I 1 CHJlR = .TRUE. 

GT. 01 FAN=»TRUE» 


too 


IF (NSTpMll 
If (MSTr(2I 

K(NKT+21=1 

GO TO 9o 

IF (N5TR(2) .EQ, n FAN=.TRUE. 
K(NKT+21=0 

Go TO 90 , , 

If (R(5ll ,GT. R(691) GO TO 
If (R(5ll ,LT» R{831) GO TO 6B 
If (K{NkT+2) .EQ. 1) GOTO 67 - 

DUM = CYClE( (R( I lOl+Rt 1 I I 1 > “80.. 
IF (DUI-ULI, R(ll0l*60») GO TO 67 
GO TO 6D 

IF (FAN) GO TO 98 _ 

QFANAsQ , 

CjFANsQ. 

C A I R = 0. 

^0 TO ICO . 

C!FAN = R(911“(1»-R (92)1*3. 912 
C|FANA = R(91 )“R(921“3,912 
NFLAG=-2 

GO TO 150 , 

CaIR“R( lOI 1 “BO. “RIIOG’CPG 
MC = R(l)5l 

IF (.HOT. steady) go to lOO 
OFAN=QFAN*H (93 ) 

QFANA=QF ANA“R (931 

ADD effect OF OPENING OOOR 

QDOOReQ . 

NFLA6=2 


R(1121“80. ) 



CHILR086 

CHILR087 

CHiLRonn 
C«ILRDB9 
CH 1 LRO^O 
Cm1LR(?91 
CH 1 LR0'»2 
CHlLRr>'’3 

CM I LRfi'Js 

CHILR'’'’5 
CMit"0'’6 
CHILRO*?? 
CHlLRP‘»n 
CHl LRH99 
CHILRIOO 
CKlLRlOl 
CHIUR102 
CHILK103 
Cm I LR I 09 
CiiILRiOS 

cm L» I '’6 

CHlLHlO? 
CHlLRlOB 
CHILR109 
CH ILR ( 10 
ChIlR 1 1 I 
CHlLRl 12 
C H I U R 1 13 
CHltRl 19 
CHik-Rl 15 
CHlLRl 16 
CHlLRl 17 
CHlLRl »F 
ChIlRI 19 
CHlLR|7y 
CHlLRl?) 
CHlLRl 72 
ChIlR!?3 
CHlLRl 79 
CHILR125 
CH 1 LRl 26 
CHlLRl 77 

Ch ILR I 20 

CH ILR I 29 
CH1LR130 
CHlLRl 31 
CHlLRl 32 
CHlLRl 33 
CHILR139 
CHlLRl 35 
CmILRI 36 
CH1LH137 
CHlLRl 38 
CHILR139 
CHILR190 
CHILR191 
CHILR192 
CHILR193 


O 

K) 

A 

oo 

cn 

ro 


MB2T 


r 00377 


C’ 


OOHOO 

IHS* 



00H02 

1H6# 



OOHOH 




00H06 

~ i H a • 



00H07 

MV* 



OOH 1 0 

ISO* 


12B 

ODH 1 1 

15 1* 



! OOH 13 

■■ 152* 



i OOH|H 

1 53» 



OOHl'.- 




1 00HI7 

15S* 


150 

00H2I 

1S6* 



O0H22 

1S7* 



00*123 

I5a« 



00H2H 

15V« 



00H2S 

160* 


152 

0OH26 

16 1* 



C0H27 

162* 



O0H30 

I 



00H3I 

I 



00432 

16b* 



OOH33 

166* 



00H3H 

1 67« 


155 

r- 0CH3H 

UB* 

C 


00H36 

169* 



O0H37 

1 70* 



OOH40 

17 1* 



00HH2 

1 72* 



OOHHH 

173^ 



D0HH5 

I7*t* 



00HH6 

1 75* 


157 

1 00HH7 

1 76* 



1 C0H51 

177* 



; 00H51 

1 7B* 

c 


CCH52 

1 7 V 0 


158 

1 0CH53 

Mu* 



OOHSS 

IB 1 * 



00H55 

in?* 

c 


00H55 

183* 

c 


1 00H55 

1 n 'I * 

c 


00457 

1 


160 

00H6 1 

IB/,* 



00462 

1 P 7* 


170 

' 0C463 




0046H 

1 



□ tlH66 

I 7n* 



004 67 

19 M 



1 00470 

- 19?*» 


172 

1 00472 

173* 



1 OOH73 

1 9 M « 



004 74 

1 9S * 


17^ 

— OOH76 

1 9 * 



OOH 7 / 

197* 



00500 

1 



0Q50 1 

1 9V* 



1 00501 

2nu* 



00502 

2C i * 




DETERMINE AMBIENT aiR PROPERTIES 
IF (STEADY) 60 TO ISO 
IF (NSTR (5 ) .EQ. 1 1 60 TO 125 

IF (TIME ,LT. Rill'll) GO To 160 

Rl n*l)=Rl ll'l}+2‘l.*i6Q0./R(7l ) 

GO TO 150 
LbK(NKT+1) 

IF (TIME .LT. RIU1»3600.) GO TO I6Q 
RIL)=RIL)+2*I. 

K (WKT + 1 )>=KINKT+t ) + 1 

If (R(L+n *LT, .0001 .oR. K(NKT^l) .GT.M 
IF (NSTR(H) .EQ. 0) GO TO 152 


K(NKT^l) .GT.MAXR) K(NKT+1)»125 

152 


IF (NSTR(H) .EQ, C) go to 152 _ . .. . 

TG = R(?6) ■ ■ 1-5 

RH0G = R(97) S”ll-5 

CPG=R(99) CHlLR 

00 TO 155 ' 

N0UH = LK(HCAH.3J CmILR 

call 5MELL(LCAB,3,NDUH,2.2) ‘ 

LsMOOtKnK + 2) , 1001 £^l>-5 

LDUH = LV fNCAO I 1 ) _ . CHIIR 

CALL PRoPIViLOUri) .L,LCABsCpg»OUH3,RH0G.DUH.DUM2) ChIUR 

TG = V(LDUH+I» ... 1-5 

r<l9B)»VV<NCAHil0Bl/VV(NCAB,l07} CHlLR 

IF INFLAG .LT. tJ ) GO TO ’9 ^”!l-R 

DF.TERMINE AMT, oF W aTER' CONDENSED ChILR 

rwCAB=RHOb» I5'I<I.*(TG + 'I60»>*R|98)/Ia,016/I‘l‘l. CwlLR 

FA’F«PSAT(R(bl I ) 

IF IRI51 1 .l-T.O, ) PYIF»0. 

IF (PWCAB.GT.PWF) go to 157 • LR 

R'laroRi^ui S^I*-5 

GO TO ISO 

0LAT=1220. S^i^-5 

n IRISl ) .6T.32. I QLAToIOGq,' ^ ^ 

R'»8r ■= 1 0 . 0 1 6*PWF* 1 *IH . / nSSn.^RHOG* lTG + 960. I ) CHllR 

C0I1PUTE heat input fROH DoOR AIR EXCHANGE ChILR 

A'nU0R=RK0G« (R <6o )-R |69 I ) • R | 70 I • I CP 6 • I T6-R 1 5 I » ) + I R I 90 ) -R98F | *QLaT ) CH ILH 

If ISTEaOY) QDOOR“!i)DOOR/ 2‘) . »R 171 I CHiLR 

IF ( .NOT. STEADY I OD OOR = QDOoR/DT I ME* 3600 • CulLW 

ChILH 

STEODY state case with fan off - TEHPERATURES_ CHUR 

CH I lr 

if (Fan .OR. C .N0T.5TED0Y1 ) GO TO 200 CHUR 

LpaSS = 3 ChUR 

LPA5S = LPA5S+1 

K'^i=H(bi) Chur 

If INSTRI 1 ) .GT.O) go TO 172 . . . S^!'"5 

Tr= t A ( 1 1 »CFA*A I 2 I 1 82 I *R5 1 > 7 I A I 1 ) *CPA + R I 82 J 1 ChUR 

GO TO 177 _ 

If lllSTRl6).E0.tJ) GO TO 174 ChUR 

TC=im02) S^'If-5 

00 TO 177 * ChILR 

If (IJ('A55,GT.3) go to I7* „ _ CHILR 

Call [jsurr . ’ chur 

in(H = R ( 0? ) +R 1 52 ) ^ chur 

Dorl2 = R{!D6)«K<671-Rtl07)*R(lD6I*3,Hl2 CHlLP 

T C= I 0UH« t H I 1 20 ) *R I I 2 U ~DUM2 t +R I 82 I * I R I 52 > *R ( 54 • +0 DOOR } J / _* CHlLR 

• (DUH* IRI82 J+RI 120) I -Ri82 ) »R (82 I ) ChUR 

R51=R(5l ) chur 


CHURlHq 
CHllRlRS 
CHILRI Hi 
ChURI H7 

CHURIH8 

ChURI H9 
CHlLRlSO 
CHILR 15 I 
CHURI52 
CHUR I 53 
CHlLRlSH 
CHUR 155 
ChURi56 
CHUR157 
CH1LRI58 
CHUR157 
ChILR I 60 
CHUR16! 
CkU R I A2 
CH U R I 63 
Ch UR 1 6H 
CHUR165 
CHUR 166 
ChILRI 67 
CHl LR I 60 
CHUR169 
ChUR 1 70 

CHURI 71 
CHURI72 
CH UR I 73 
CHURI 7H 
CHURI 75 
C H U R 1 7 6 
CHUR'i77 
CHUR170 


D2-I1857I-2! 


f 


00503 

202« 

00501 

203* 

oosos 

201* 

OC507 

205'* 

0C5 1 0 

206« 

00512 

207« 

005 1 H 

2q8« 

0Q5 1 5 

209" 

Q05I6 

210“ 

0051 7 

2 ( J « 

00520 

2 12“ 

0052 1 

213“ 

00523 

211“ 

00521 

215“ 

00525 

216“ 

00526 

2 17- 

0052/ 

213“ 

00531 

219“ 

00532 

220“ 

00533 

22 1» 

00531 ~ 

222“ 

0053b 

223“ 

0053/ 

221“ 

005HU 

725“ 

0051 1 

226“ 

00512 

2 2 7“ 

00513 

228* 

0051 1 

2 7 9“ 

00515 

2 30“ 

00516 

23 1“ 

00516 

232“ 

00516 

233“ 

0051b 

2 3'?® 

0051 / 

2 35* 

C055U 

23b“ 

00552 

23/“ 

00551 

2 3«- 

00556 

2 39<» 

00560 

2iriu 

00562 

2 ') 1 “ 

00562 

2 I/O 

0056 3 

2 1 J - 

00561 

2‘!1" 

00566 

2<iS» 

005/0 

2 lb » 

0057 1 

2 -t 7 » 

005/2 

2 1 H « 

005/2 

2 H 9 » 

005/3 

2 in* 

005/1 

2 5 j “ 

005/6 

2S7*- 

005 77 

2’' 3“ 

00601 

2S-t » 

00602 

2S5« 

00603 

256* 

00601 

2S7® 

00606 

2 5H“ 

00607 

259“ 


c 

c 

c 


c 


c 


176 


177 


100 


105 


195 


200 


210 


R(5n«lRJ52>*R15^1 +R(82>*TC +QD00R) /OUM 

lPA5S=LPASS+l 

IF ( <LPASS/2>^2 tKQ*UPASS) GO TO 17^ 

R{67)=Kt67) • C R J 5*U-R U6> I / t R ( 5 H ) -R ( 5 I ) ) 

IF (LPA5iltO*n*R?67l^H{67) •(Rt5H)-RC66)l/tRl5^1**R(Sin 

DUM2-R ( I 06 ) <*R167 )“R ( 107 ) *R t lOa ) •3*‘U2 

Tc=(R (H2)*R(51 ) +B ( 120MRU21 ) -DUM2?/ ( R t 82 ) •**R C 1 20 U . . ... 
Caul osurh 

P iS 1 ) =TC+ ( ODOOR + OFANF-R (53) ) /R(82> 

DELT AaAnS ( K ( 5 I ) -f<-5l ) 

IF t Lf ASS ,LT ,25 ,ANOt OELTa.GT» ,0011 QO TO l/Q . 

R(751=R(51 I 
R(77)=R(5l I 
R(7V»=TC 

UFLAG = 2 , , „ . 

IF ( IlSTH ( n ,E0, n GO TO IBO 
R ( 2 I ’'TC 

GCOOL = A( I )*CPA« (TC. 

Go TO H?6 

IF (NSTR(A) •EQ»0) GO TO 
G;cOOL=(R<82»«(R(511-TC) 

R { I C'i’ ) =OCOOL/R I I 00 I 2 

OREJa OCOOL » I 1 , + I . /R ( I GO M ... ._. . . . — — 

SrU J = R lIo8 > *R I 87 I • ( I ♦ + ! »/R ( lOn ) ) + R ( 107 I *3 1 2* i 1 ,"R < 10^ 1) 
0C00L = Rn08»»Rl67) - R (I 07 » • 3 . 'll 2 *R ( J 08 1 

R { 1 1 9 ! =R ( IC7 ) +R I 10& I «R 1 67 » /R ( 100 I /3**l 12 

R ( 2 I =A t 2 I+WREJ/ A m /CPA 
Go TO H96 

GET COMPUTING TIME INCREMENT 


220 


2S0 


•At2 U 


1 85 

+ R{ I20)*(RU21 )-TC) ) 


«R(67) 


210 

R( I l7 )=□• 

R( 1 l7» = l ♦ 

R( UBIsO. 

R ( 1 I 0 ) c I • 


DTH = DT IME/.T6D0, 

Ir { «NOT •5TF.DDY J GO TO 

IF (R(5 I ) ,6T, 32.CCC01 I 
IF (RIBlI.LT. 3l,VV999) 

IF (K(75).gT. 32,00001) 

If (RI75 > ,LT. 31 .99999) 

call QSURH , 

INNER food node 

!f^^RU lO ! ,GT, .5) SG75 = SG75*R(76 i 

If (steooy) go to 220 — 

CFOOD 1 =K ( 72 1 * I 1 ,-K ( 73 ) ) 

DuH=R<116)»CFOOOI/ (1,>R(116>) . , „ .. 

CFOOL1I=CFOODI‘R(II9) + DUH*( RII1B)*,H6+(I,-R(II8))1 

OUTER FOOD NODE 

sr,5 I =H < 52 ) +R ( 82 i +SG75 

If (NSTR(2) ,6T. Ot SG5l»Sr,5l+R(fl9I 

0UM2=-0 , 

IF (CAIR.LT, l.E-51 GO TO 2H0 

DuM2aCiSER ( R I 6 I ) , |:IOO)I*HC 
DuM2aG5ER(0UH?,CAIH) 

SriSlaS6sl+DUM2 ’ 

I F ( STEODY ) GO TP 260 , . 

CFOODOaR(72)‘RI73) 

DuHaR t I (S) *CF 0000/ U,-Rtll5>) 


CHILR702 
CHlLn203 
CmU R/O'I 
CH I LR705 
CHILR206 
CHILR207 
CHILR2O0 
CHILR209 
ChILR?IO 
CHILR2 I 1 
CH I L R2 I 2 
CHtUR?13 
CHlLR/lH 
CM I LR2 1 5 
CHl LR2 16 
CHI LR217 
CH ILR? 10 
CM 1 LR21'’ 
CH ILR220 
CH1;.R221 
CHILH222 
CHILR223 
CH1LR229 
CHILR225 
CM I LR?26 
CM I LR727 
C •IILP77B 
C H I LP729 
Ct'ILR?30 
CV ILR73 1 
Ch ILR7.T2 
CM I LR2T3 
Ct; I LR7 3‘» 
CHILR235 
CHlLr?36 
CH1LP737 
CH ILR230 
C H I L R 7 3 9 
CHlLR2Mn 
CM 1LR79 1 
’ ChILR7‘^2 
CHI( R7‘'3 

CH1LR7‘*'( 
CMILR295 
CH I lR?'' 6 
CM 1 LR797 
CHILR7HR 
CM ILR?‘*‘» 
CH t LR750 
C H 1 1 R 7 5 ( 
CH 1LR?52 
CHILR253 
CH I LR25R 
CHILR25S 
CHILR756 
CHILR757 
CHII.R25B 
CM I LR259 


P2-118571-2 


t432T 


0D6IQ 
006 i 1 
0C6 1 I 
006 1 2 
00613 
0061b 
006 16 
006 1 / 
0062 1 
00622 
00623 
00623 
DC62‘I 
00626 
0062/ 

00630 

00631 

00632 

00633 
00633 
00633 

00633 

00634 

00635 

00636 

00637 
00640 
00640 
0Q64 I 

00642 

00643 

00644 

00646 

00647 

00650 

00651 
00653 

00655 

00656 
00660 
0066 1 
00662 

00663 

00664 
0066b 
00666 
00667 
00667 
00671 

00673 

00674 
0067b 
00676 
00700 

00702 

00703 

00705 

00706 


260 * ■ 
261» 
262« 
263* 
264* 
265» 
266* 
267« 
26fl • 
26V« 
270* 
27 J • 
272* 
273* 
274* 
275* 
276* ■ 
277* 
276- 
279* 
200 * 
20 J * 
2fJ2* 
2f>3* 
20*1 * 
205* 
206* 
20V • 

2 0 0 * 

2 09* 

2 9l'»* 
29 I • 
292" 

29 3* 
294 « 
295* 
296 » 
297* 
290* 
299* 
300* 

30 I * 
30 2* 
303* 
304* 
305* 
306* 
307* 
300* 
309* 

3 10* 

3 1 I * 
312* 
313* 
314* 
31b* 
316* 
317* 


fe si 




CFOODOacFOODO*R ( 1 19)+DUM*{ Rnr71««46-* (1»-Rni711> 

CFOODO = cFOnOO + Rt74 ) V* 

COOLING COILS O vi 

C2 = K<103> „ . - - * 

IF (HSTHtlJ .EO.U 60 TO 2S0 

SG2 = Anj*CPA +R(fl21+0UH2 & 

Go TO 290 . _ . ^ 

IF (CHILR .and. NSTRC6) .EQ.i 1 GO TO 2B5 „ . , . ^ 

SG2=R ( B2 ) +DUM2+R (1201 P« 

Go 1u 290 

5G2=1.E-20 

OTYNE = AM?ri(DTHl?4«cPOOOl /5G75 f*4*CF0000/SG5l»«4*C2/SG2) 

LLs>IPlX (0fH/DTYHF + .99) 

0TY(1E = DTH/FL0AT ILL I 

Go TO 4r0 

X = .H/AMAXHSG75,SGbl iSG2> 

LL = 1 

thermal balance (ALLOW FO*^ FREEZING) ' 

LPAS5=0 

OREJ = C. . — 

LPASS=LPASS+1 

OELTA=0, 

Call qsurr 

OUTER FOOD NODE • - 

R51^RI51 I 

051=07 B Ufa NF*R t62l*(TC''R5l l*R(8l l^HC^lRITyi^RSl )-R(S3)+(5DOOR 

IF ( .HOT .STEDDY 1 GO TO 430 _ ... 

DT=«5 1 *X 
GO TO 450 

?f” (*R5 I ^LT^!! I .99999 »0«. R5I+*)T • GT» 32 • OBOO 1 ) GO TO H5o 

0FREEZ = Ht72)*R(73)*Rtn5)/ (l.-RtllSll^ll.-Rlll?)) *144. 

IF (-05l*DTYME .6E. (JFREEZ) 60 TO 440 

DT=32.0-R51 ... • 

R(ll7)=Rni71 -05 l/(aFREEZ*U."Rnl7n*DTYME 
Go TO 455 

0t=(051*DTYME+0FREEZ) /cfoooo 
R( 1 17|r.i .0 

IF ( AnS(DT) . gt.oelta) oelt A»A0S ( Ot 1 

INHER FOOD NODE . 

IF ( .HOT.STEOOY ) CO TO 470 

T;t=- 070*X 
Gn TO 490 

?(■ ( hI75?IlT^ 3^ .99999 .oR» R1751+DT »GT. 32 .0000 1 ^ GO TO 490 

0FREE2 = R^72?* i 1 73?^*^*R I J 16 1 /( 1 .-R t 1 1 6) 1 *(I.”R{llSl) *144. 

IF (Q 7 e«DTYME ,6E. QFREEZ) GO TO 4B0 ... . ; 

DT=32.0“R (75 ) 

R(75I=32.0 


CH1LR260 
CHILR261 
CHIUR2A2 
CHILR?63 
CHILR764 
CH1LR265 
CHILR766 
CH(LP?67 
CH1LR76B 
CH I LR?69 

CHI L«?70 

Ch1LR?7I 

CH1LR272 

CHILR273 

CH1LR274 

CHILR275 

CH1LR776 

CHILR777 

CHILR27R 

Ch1LR?79 

Ch IlR2A0 

CHILR7B 1 

CH ILR7B2 

CM! LR2n3 

C H I L R ? A 4 

CH I UPVAG 

CHILR246 

CHILR747 

C H 1 1 R 2 4 A 

CH1LR749 

CH 1 LR290 

CHILR29! 

CH I LR?42 

CMILR293 

ChIUR244 

ChU R295 
CH ILR?96 

CH I LP297 
CHILR290 
CHILR799 

CHILP300 
CHILR301 
CHILR302 
CHlLK3n3 
CH1LR304 
ChILRSOS 
CH ILR306 
CH I LR307 
CH1LR30B 
CHILR309 
CH1LR3 10 
CHILR3 I I 
CHILR312 
CHILR3 I 3 
CHILR3I4 
CHILR315 
CHILR316 
CHILR317 
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00707 
00710 
0071 I 
007 ) 2 
00713 
007 I 
0071*1 
007 1 6 
00720 
C072 I 

00722 
CC723 

00723 
C072H 

0 q; 2 H 

0072h 

00730 

00731 
00733 
0073H 

00735 

00736 

00737 
007*10 
007M 1 
007H 1 
007*)2 
007H*1 
007*)b 
007H7 

00750 

00751 

00752 

00753 
0075M 

00756 

00757 

0076 1 

00762 

00763 
0076H 

00765 

00766 
0077Q 

0077 1 
00772 
007 73 
007 7M 
00 7 75 
007 75 
00 7 7b 
0 1 UOU 
0100 1 
01002 
□ 1003 
0100*1 
0100*1 
01006 


3|6« 
31V* 
320* 
32l» 
222 * 
323* 
32*1* 
325» 
326* 
327-’ 
3 7 H • 
37 V • 
33D* 
331 • 
332* 
333* 
331« 
335* 
336* 
337« 
33 a<» 
33'7 • 
3 'in® 
3H I • 
3H2* 
3*13* 
3HH* 
3*I5» 
3*16" 
3*17® 
3 <IB® 

3H V* 
35n* 
35 1 » 
352* 
353* 
35*1* 
3 65.* 
356* 
357* 
35fl* 

35 V* 
360* 

36 1 * 
3 6 2* 
363* 
36*1 <> 
365* 
3 66* 
367* 
360* 
369* 
370* 

37 1 * 
372* 
373* 
37*»e 
375* 


R( 1 lS)=t?{ 1 IB)+Q70 /QFRFE:z*< 1 ,-Rmai >*OTYHE ■ ‘ 

60 TO 095 

*100 OTs:(-070-OT YHE+OKRCEZ I/cFOOD! 

R( 1 ltn*l .0 

*190 R(75 J=R(75)+DT ‘ ' 

*195 IF tA 8 S(DT).GT. DELTA! DELTA**lVnS ( On 
FAN 

*196 JF (HSTR 12) .EQ.O) go TO *»98 

OUH = R 1 57 ) +*160 • ■ 

OtJM2 = R t P7 ) *‘160, 

0UH = .t7i'if,-6»RC8BI*(DUtl*DUM + DUH2*DUH2)*tDUH + DUrzJ 
fi 187 J = 1 OFAtJ-QFANF + DUH*R J67 ) +R 1 90 > • R I 5 *1 ) +R 1 8 6 ) * R ( 6 q )1 

• t (DUM+R(9D)+R(86) ) 

*196 IF (LFLAG.GT.O) GO TO 585 

coolant - external coolant circuit 

If INSTRllJ tEfj. 1! GO TO 53 O 
DUH = RI 02! »1R51-TC)+A1 1 ) *CPA « 1 A { 2 ) -TCI +HC*R 1 80 ) • 1 R ( 7? I ~TC )' 
If UNOT.STEODY! go to 500 
Dt»DUM*X 
Go TO 5 10 

500 Ot = UUM*L1 TYNE/ (Rlia3)*A(l)*CPA*DTYHEi ' ‘ 

510 TC=TC+DT 
R < 2 ) =TC 

CCOOL -A { 1J*CPA*(TC-A121! 

GO TO 570 ■■ ■ - 

self-contained chiller - CONDENSER COOLANT OUTLET 

530 If ICHIlR .AND. NSTR ( 6 ) , EQ , I ) GO TO 535 

DUM=Rll2n!*IRl!21I"TCl +HC*Rl80l*(R(79)-TC)+R(82l*(R5l-TC) 
If 1NSTR16J .EQ.n} GO TO 53) . - 

QCOOL=DUH 
60 TO 533 

531 WCOOL = -R n07)*3,*ll2*Rl 1081 
R( 109) =R 1107) 

Or<t J = H I I 07 I *3.*1 12 * 1 1 .-R 1 100 ) 1 

IF I.NOT.CHlLRI GO 7 O 532 
DuM2**R 1106) 

IF ISTEADY) 0UK2 = DUH2*R ( 67 ) 

QCOOL=QCOOL+DUH2 
RI 109) =Rl 107) +DUM2/RI lD0»/3.‘n2 
QPEJ=OReJ + OUH2*(!» + 1**'R1’I^O) > 

532 R(2)=A12)+0REJ/Atl)/CRA 

OllH = OUM-OCOOL 

533 IF 1 ♦NOT.STEDDY) GO TO 5*10 
DT=DUM*x 

60 TO 550 

5*10 DT=>DUN*DTYHE/R1 1031 
60 TO 550 
535 Dt=RI102)-TC 

QC00L=RrB21*(Rl5l )-R <102)1 + HC *R < 80 ) • { R t ?9 > -R ( 1 02 ) f 

• + R 1 1701 »TR t 121 )-R( 102) ) 

If ISTEaI'Y) QCOoL-OCOOL*R167) 

ORE J = Q coot* { 1 ■ + I ./R ( 100 I ) 

R( lCV)=0C0CtL/Rl lfC)/3.*ll2 " 

R (2 ) = A 12 1 *QREJ/A,{ 1 1 /CPA 
550 TC=TC+DT 

570 IF IABS(DT) *6T. DELTA) DEltA=ABS ( OT > 

If ICA1R.lt. l.E- 6 ) 60 TO 580 


CHILR31G 
CH 1LR31 9 
CHtLR3?n 
CHILR321 
CHILP322 
CHILR323 
CH I LR32*1 
CH I LR325 
CH1LR326 
CHILR327 
CHI l.« 3 ?n 
CM 1 LR329 

CHILR 330 

CHILR331 

CHILR332 

CHILR 333 
CH I LR33*1 
CH ILR 335 
CHILR336 
CH ILR337 
CHILR338 
CH I LR 339 
ChIlR 3*10 
CHtLR3*l 1 
CHILR392 
CH I lR3*13 
CHI LR3'I*1 
Ch1LR3*1S 
CHILR3'I6 
ChILR3'17 
CHILR3'18 
CH I LR 399 
CH I LR350 
CH U R 35 I 
CH 1 LR 352 
CHILR 353 
CH I LR35*1 
CH1LR35S 
CHILR356 
CHILR 357 
CH1UP358 
CHILR 359 
CHILR 36 O 
CHILP 36 I 
CH I LR362 
CwILR.363 
CH I LR36*1 
CMIUR365 
CH I LR 366 
CHILR367 
CH I LR 36 O 
CWILR369 
CH ILR370 
CHILR371 
CH1LR372 
CH1LR373 
CH I LR37*1 
CHILS 375 




OIOIO 

376* 

OiOl 1 

377* 

OIUI 1 

378* 

01012 

37V* 

01013 

3 80*' ■' 

0101*1 

3B 1* 

01015 

382* 

01015 

3P3* 

01016 

3BH* 

0102CI 

3hS* 

0102 1 

386 t* 

01021 

38 7* 

□ 1 0 '( 0 

388* 

0 I U*10 

389* 

OlOHO 

390* 

0 1 OHO 

391 * 

OlOHO ■ 

392 » 

01 OH 1 

3V3* 

010H6 

398 * 

010H6 

39S* 

01OH7 

39 6 * 

01057 

397* 

01067 

398* 

0 1060 

399* 

0 I 062 

*100* 

01 06H 

801 • 

01066 

802* 

01067 

803* 

0 I 0 7 1 “ 

8 □ 4 « ^ 

01072 

Hob* * 

01072 

806* ' 

01U7H 

807* 

01076 

80«» 

01 100 

H 09 o 

01 lOl 

8 10® 

01102 

8 11* 

01 103 

8 12® 


OUH=CAIR+HC«RCai J ' ' '' 

R{79l = ((0FANA/HC + TC«R(80n*0UH+CflIR*R(8l)*R(5in 
• f (R(8C>«DUM+CAIR«R<8| ) ) 
R(77>=(HC»R<ei)«R(S|)*CAlR*R(79) 1/OUM 
60 TO 565 
500 RI77 )=R(51J 
R(79)=TC 


630 


5P5 If (riSTRll7j^ «E0* O) GO TO 507 

WRy7E*{'A^175T’TlME»DUH,OFAN,QFANA,QFANF*CP6,QCOOL,RH06,TG» 

• QDOOR ,CPA ,K ( NK1 +2 I ,R < 53 I „ . . 

175 FORHAT (//• TIHe =»,012»5,« SEC =«,G12.5» • HRS 

• • QFAlJc* , G 12*5 » • OFAHAa* iGI2*5i • QFANFf ' » 6 I 2 ,5/ 

• f CPG=», 612.6, « OCOOL=>*,612.5,« RHOG» » , G I 2 , 5 , • TGa»,G12,5, 

• • CJ000R“* »612,5, » CPA=«, 612*5/ 

9 » KI17) = »,I3, • K(53) = * *6|2*5) 

WRITE U»R20> CFOOOOiCFoOOl ,f air ' , /• c 

R20 FORMAT {|H+,T30, • CF OODOa i , 6 1 2 * 5 , • CFOOD I = • , 6 1 2 ,5 , 

9 * CAIR=*,G12.S ) „ • 

write (6i 630J HC.SGSl ,SG75, SG2,X,Q5l 

Format I • HC=*,GI2*6, ' sG51=*,gJ2.5, * 5G75=* ,G12,S| 

I • SG2=’,GI2.5, * X = », 612.5, ♦ Q5i°',Gl2«5) 

5B7 IF (LFLAG.GT.C1 60 TO 600 
IF tSTEOOYl GO TO 690 
IF (LPASS.lt, LL) GO TO RlO 
Go TO 6C0 „ 

590 IF (LPASS.LT. 25 .AN(). DELT A . GT . . 00 I I GO TO Ml 0 
•600 R (53 ) aR (53 I +KFAN-GFANF-QDOOR 

IF (NSTRll).EQ.l) R(53)aR(53)+R(l20)*ITC’’R(l2l)) 

adjust steady state duty cycle 
If ( { .NOT.STEDDY) .or. LELaG.GT.OI go to 620 
IF (NSTrd I ) .EfO.S *0R, NSTR ( 6 > " NE * 0 1 60 TO 620 
R{67)aR(67) • (R(6‘n-'R(66) I / ( R ( 5 R) **R ( 5 1 ) I 

620 Continue 

RETURN 

END 


CHILR376 
CHILR377 
CHILR37S 
CHILR379 
CH ILR300 
CMILP301 
CHILR382 
CH1LR3R3 
CH I LR3AR 
CHILR355 
C P I L R 3 0 6 
CJtlLR?n7 
CHILB300 
CH ILR309 
CHILR390 
CHILR391 
CHII.R392 
CHILR393 
CH I LR ?9'» 
CHl LR?95 
CM 1LR396 
CkILR3*»7 
CH ILR39R 
CHILR399 
CH I I RADO 
CHlLR*<Ol 
CH ILRH02 

Ch!LR‘<03 
C H I L R M 0 '( 
ChILRhOS 

:hilR406 
ChILR'*07 
CHl LRROO 
CH I LR‘iri9 
CH1LR9 10 
CHILR91 I 
CHILR912 


end oE COMPILATION: 


NO DIAGNOSTICS. 


O o 

Mg 

It 


D2-IIE57I-2 


UN I VAC^I^OB 'fortran V EXEC II LEVEL 2|A _“*EXECa LevEL E12010010A) 
THIS COMPILATION WAS OONE ON 25 AUG 75 AT Jfl.HOlSR 


2S AUG 75 


subroutine ftray 


ENTRY POINT CDI575 


storage used! COt'E(l) 001*07} DATAIO) C00237I BLANK C0HH0N(21 OOOOOO 
common blocks; 


0003 COMP 000 J I 7 

000*» RARRAT 0CD150 

0005 KANDV 000001 

0006 HlSC 000036 . .. 

0007 SOURCE 000102 


external references (BLOCK, NAME).. 


00 

10 

USURR 

00 

1 1 

MWDUS 

00 

12 

N I 02S 

uo 

I 3 

SURT 

CO 

1 4 

N 1 0 1 S 

□ 0 

15 

ME RR35 


storage assignment (BLOCK, TYPE, RELATIVE LOCATION, NaME) 


0000 

'• ODDI 
0001 
L’OOl 
0001 
0001 
0007 
0003 
0000 B 

■■ 0DO7 

0005 I 

0006 
0006 

" 0003 I 
0D03 
0003 
0003 
C003 I 
0003 
0003 
C006 
0000 R 
0000 R 
0007 
C006 
0006 
□ □OR R 


0C00!j3 
00127I 
ODl 3'i6 
no 1 *457 
00070*1 
000777 
0 C 0 O 73 
OCOOCO 
0COCO7 
OOOOS I 
DDOaOO 

00G0D6 

OOOOl^ 

OPOOlY 

000022 

00002S 

OC0O32 
000035 
ocoo'is 
OOOO&O 
OC0025 
0000*12 
OC 003I 

0P0072 

000027 
000032 
OCOl 1 I 


tOF 

1 30L ■ 

I’OL 

3t’0L 

5 C'L 

7VU 

B 

OS 

OUH . 

!bl 

K 

KTRANS 
MAXCl _ 
N 

NC 

NEXT 

MKT 

llPASS 

nN 

NSFT 

PGM IN 

QMFLT 

g2S 

RHOA 

start 

TIHEHX 

T3 


0001 

0001 

OCOl 

OCCl 

croi 

OCOl 

coco 

000^ 

ocn^i 

0C06 

□roo 

C006 
□ 007 
0003 
0003 
CC06 
0003 
0003 
cro3 
0006 
0000 
ooco 

0007 

0006 

OC06 

000^ 


00 l 0 ‘l 2 
GC) 337 
001351 
COC^’I 7. 
GCl 

CC 1 C27 
0 CCS 13 

err 0*1 5 
Drclr^> 

Cnon';t? 

ococr2 
occcio 
oorc IS 
000052 
000023 
0PG026 

0C0022 

000036 

6 

0 0C056 

:’rro26 

0r0G36 

f<Q003c 

0rC073 

rcro3o 

OrCD33 
0001 12 


IDOL 

1*1 OU "" 

20CL 

3r.2G 

S35G 

Gr*L 

CQND 

DT 

TiHAX 

IMAXR 

KFL5Y5 

L 

maxlp 

NA 

MCAB 

NEXV 

nlast 

M P F 
US 

mstr 

PUHIN 

03*1 

KHO0 

steady 

THAX 

TH 


ODOl 

QGOl 

□nci 

DOOO 

or?i 

I 

C? 0 7 

creo 

DD06 

COCO 

0006 

coco 

0006 

0003 

0003 

0003 

0003 

00C7 

0003 

0003 

0000 

0000 

CGOC 

GUOC 

DOOO 

0006 

OCDH 


ooio^is 

fiQnn65 

C0032S 

0 C 07 1 H 
GO 1 n 33 
uonn46 
00002^ 
OOCCDi 

Qnn ? \ 2 
C0?0t?3 
0^0n23 

Goori^ 

000020 

000023 

000027 

000033 

OOr n 5 *l 
Ooon*|7 
Gorioo 
oooGor 

eonn3S 
C0CG33 
corn ! 7 
n nr no 6 
00003*^ 

cool I 3 


I lOL 

15L 

22CG 

310F 

6nL 

VOL 

CPA 

DTH 

GRAV 

ItJJPS — 

KOUTPT 

LL 

HaXSUP _ 
NAl 

NCFL . 

NK ' 

NLFL 

NPFS 

NSF 

NSUBR 

0 

ql2 

0*15 

SGI 

STEOOY 

TMIN 

T5 


OOol 

OOQl 
OCOl 
000 1 
OOP I 
0007 
0007 
C006 
0000 
00 00 
00C6 

ocoo 

00P6 

0007 

0006 
0003 
0003 

0007 
OOC7 
0003 
0000 
OOnn 

OGQH 

OOCO 

DOOM 

D0n*4 

OGOS 


DOOool 

QO I 3*j3 
Onl *13 1 

00 1 1 **3 
CnC7sZ 

R OOOOOO 
r*n03^ 7 
R OOOQnO 
R npOQi^ 
I CrDoi2 
oncoo*! 

I 000076 
QOOQ I 7 
0n0053 
□60070 
000030 
□ 0003 *1 
6o66s5 

C00063 

000 1 0 I 
000037 
on0o3S 

onoool 
0 n 0020 

000063 
000 I (,7 

acoooQ 


1 I ?-6 

150L 

2*10L 

*103G 

7nu 

A 

CPB 
DT I MF 
H 

JF 

KPDPOP 

LPASS 

MAXSSl 

NB 

NCOMPS 

NttEX 

NP 

NPFST 
MSFS 
MV 
Qa3 
Q I 5 

Sg2 

TaVG .. 

Tl 

V 


cool 

0001 

cool 

0001 

onoi 

0000 

0000 

onoo 

0PQ7 

OOOO 

OPO* 

0006 

0006 

0003 

0n06 

0003 

000 * 

OnO-l 

nno7 

nno3 

nnoo 

0000 

0000 

CnoD 

000 * 

OnoR 

0007 


OOl 173 
000236 

001 *1** I 
001*120 
noQ7S3 
000016 
0000*10 
000025 
000050 
OOOOl I 
or COO 5 
CC0007 
00002*1 
00002 1 
C00021 
000031 
000023 
000037 
n0006*l 
000102 
000027 
000032 
00001*1 

00002 I 
000031 
0001 I 0 
00007*1 


170L 
17 IG 
27DL 

*47Hg 

75L 

ASP 

delta 

DTYmE 

I Al 

JL 

KSYpAS 

LPSUM. 

HINSSi 

NBl 

ME WOT 

NKS 

MP ASPO 
NPFT 
MSF'jT 
N VT 
OH f R 
023 
RAO 
SG5 

Tl^E ... 
T2 

VISCA 


D2-11857I-2 


T 0007 ''* ' 000075 "V rSCB 
0007 000077 WTHB 


OODH R 000H6 y/DRY 
qcoo R 0 CC 022 X 


■QOOR 'R 0001 *»7 WH20' 
0007 000 J 00 XKA 


•000076' WtH A' 
DOOIqI Xi^8 


•000035 wthax 
000103 Y 


00101 

00 103 

; 00 103 

00103 
OQIOH 
■ 00105 

~~ 00 J06- 
00106 
00106 
00107 
' 09107 

’ 001 10 
0011 1 
! 001 I 1 

' 00 I I 2 ' 

00112 
ODI 12 , 
I 00112 

001 12 " 

1 00 1 1 2 

I 00 M2 

! 00112 
- 00112 • 
001 13 
OOi 1*1 
00117 

! 00121 

i 00122 

0012 3 
00125 
— • 00126 

00132 

00133 
0013*1 

! 00136 - 

00136 . 
00136 

00136 

00137 • 

001*11 

001*53 

001*15 

j 001 *17- ■ 

00151 
! .00153 

' 00155 

— 00157 ■ 

00161 
00163 
00163 

f— ^ ‘ 00165-' 
00165 


SUBROUTINE FTRAY 

GO/ltlON /COMP/ DS115) ,N,NA1 ,NBI f NC , NC*8 , NCFL , NEXT i NEXV * NK > 

NKEXvNKS,NKTrHLFL,NP,HpASS,NPFrNPFT(6 ,NR,l^5,NSFvMSFf?t 

NSTRne l,tlSU0R,NV,NVT,Y M2) 

riMHIiM /n a rjR 4 V / M M A V o . A < 1 » 


COHMOH /RARRAY/’iHAxR.RII) 
COUMOli /KAilOV/ K 
- COHtlON /HISC/ DtlMEiGRAV, 

1 LP 5 UH (51 » M AX C I , M A XUP , M A X 

2 limSS ! .PfiMlN sPtMlN iSTART 
COMdOU /SOURCE/ AH9),B(l 

1 N 5 F 5 , M 5 F S T 1 6 1 , R H 0 A , R H 0 B I V 
DIULII5I0M V(M ,K(1 1 ,0161 
EROI -vALLMCE ( VjKJ > ( TAVG ,R 1 
, (T*l ,R (7«U J , (T5 ,R175) 1 , (WD 
' LOGICAL STEADY iSTEDDY 

THIS subroutine HOOELS 


NPFST(61 


V (1 1 , K ( 1 1,0161 

? i¥j*^i?i7AVG,R(5i 1 1 I «Tl iRiril 1 , (T2,R(721 ) . (T3»R(73l ) 
•» ; I TS ,R175 M , ( WDrv , R 1 1 021 1 , nvH2o ,R { I o3l 1 , l.GM AX « R ( 70 1 1 
EADi I STEDDY 


FtRAYoOI 
FTR AY002 
FTR aYo03 
FTRAYOOM 
FTRAY005 
FTRAY006 
FTRaYoO? 
FTRAYoOS 
ftraYoo? 
FTR A YC 10 
FTRAYo 1 1 
FTRAYol 2 

FTRAY013 
FTRAYOI** 
FTRAYo 15 
FtRAYDI 6 
FTRAYQ17 


A SKYLABwTYPE food HEaTING/SerVING FTRAYQ17 
TRAT. EACH heating CAVitY IS SIMULATED BY FIVE FOOD MODES, YltTHFTRAYnia 
J:*§i;FlNG allowed AT EAC^ NODE, AND THERMAL PROPERTIES •' ■ ^FTRAYol? 

property FiRSYnio 


O&r- c. ' J D E N 1 o N T M E I C E / H A T ER B A L A N C E , T E M P E R A TU R I 
INI T 1 ALI2ATI0M ARE AUTOh AT I CALuY DOME AT ST ART 
HEATING CYCLE. 


: ■ : HEA T i NG CYC LE. 

DUH=R(21 
DO 5 L=l , 19 
5 R(L»bACLT 
• Rf2)=DUH 

R ( 3 1 =A l*n 

B IF (NEWDT.E0,-I) RETURN 
R(2)=At?l 

IF tMSTRlI71.NE.O) VIR 1 TE ( 6,10 1 N' 
10 Format (///♦ component no,i » i5, 


JO PROPERTY 
Each 


steddy-steady 

IF (MSTR( 161 ,E0.H 
R(65)=0, 


CHECKOUT OF FTRAY */l 


STEDDYs.tROE. 


INITIALIZE FOOD’ tray 


IMP ASS .EQ. C) GO 
IS TED ELY 1 GO TO 5p 
IRl 10*11 .LT.O. .OR* 


..... . . 0 R * R ( 1 05 I * G T . 0 , 1 

(R(5*U .LT» .CCOl) R(5*1J=70. 
(R(55l .LJ. .00011 R(55 i = .1‘|8 " 
(R1571 .IT. ,00*11) R157»=7D. 

< R 1 58 1 , LT . ,orOl 1 RI 58 ) = . 0625 

(R160) .Lf. .CTCll R160)=70^ 
tR(61) I.LT.’ .CCDll R161) = ,216 
(STEODY . AMD, f? 1661 .GT. . 1 . AK 
1 (. NOT. STEODY.' .AND, R( j oRl 
Rt71)»~lO. 

( 1 .NOT . STEDDY 1 . AMD . ' R ll oHl 
R 1711=70. 


.CCD 11 


GO TO 50 


. 1 7and. abS{R(711 1 .LT,I .E-201 r 171 )«lRo. 
R 110*1 J .GT .0, .and, aBS(r( 71 1 1 .LT. 1 . E"2oj 

R 1 1 OR J . LT .0, and ,-ABS ( R ( 71 ) ) , L'T .‘I . E,'2oi 


FTRAYol? 
FTRAYn20 
FTRaYo 2 I 
FTRftY(?7 2 
FTRAYn23 
FTRAY02*) 
FTRAY02S 
FTRAYo 26 
Ft RAY 027 
FTRAYn?8 
FTRAYn29 
FtRA y63o 
FTRAY 03 I 
FTRAY032 
FTRAY033 
FTRAYP3*) 
FTRAYr)35 
FTBAYC36 
FTRAY037 
FTRAYC38 
FTRAV039 
FTRAYo* 10 
FTRAYn*H 
FTRAYnHE 
FTRAYp'O 
FtRAYC'M 
FTRAYo*»5 
FTRaYo'16 
FTRA Y0H7 
FTRAVC*18 
FTRAYO*!? 
Ftrayoso 
'Ftrayosi 
FTRAY0S2 


op, 

_PcL^ 

if 


\im\m 


lean 






■ ^ 



00167 

53 V 

. 

00170 



001 73 

Bb* 


00)75 

56 • 


00177 

57 « 


00200 

50» 


uJ202 

59^ 


□ 0204 

6D* 


00206 

61^ 


00210 

62* 


002 1 2 

63<^ 


00214 

00215 

65* 


00216 

66* 


00217 

67* 


0022 2 , . 

60 » 


0022 4 ' 

69* ■ 


00227 

00230 

70* 


00232 i 

72 V 


00234 ■ 

73** 


00235 

7H* 


□ 0237 

75* 

^ 

■■ 1 

00 2*10 

76* 


■ ■' 0024 1 ” 

77* 

cu 

00242 

7U» 


002H3 

79* 


00 24*1 

ouv 


_ 00245 ' 

01* 


00246 

;; 82* 

■ X... 

00247 

83 9 


00 250 



r 00251 

8b* 


1 , 00252 

8f> * 


i 00253 

87 • 


0D25*I 

OU'i _ 


r 

i 




0a2&6 
00 2 6 D 
0Q262 

0D26H 
00266 
00270 
0Q2 72 
00 2 7 *1 
0C2 76 
00 2 77 
00 3 00 
0030 1 
00 30H 
00306 
003 to 
003 I 2 
00313 
003 1 ‘I 
003 1 n 
003 1 'I 
00 3 I 
003 15 


09* 
90 V 
7J * 
92* 
93» :: 
9'l« 
9b«' 
96 s 
97‘ 
90 ♦ 
99* 

loo* 

10> » 

1 02 « 
.103*' 
1 P‘l» 
IP'j* 
106* 
107* 
100 * 
109* 
110 * 


20 


C) R(L)>=R(7l y 


IF 
IT 
IF 
1 F 
IF 


D) KlNKS+1 )“l 
.oil R(67 J-1 ,875 
,DI J , ITS 

,0001) R I 69) =7. 9 
,COCl) R(62):a.9 9 
,0001) R(831=.25 


'25 


. G T , 3 2 , 0 D 0 0 U.. J I- = J L + 1 
,LT. 31,99997) JF=JF+1 


DUH=Bl7ll 
Do 20 L = 72 i75 
If (NSTRID lEQ, 

DUH=OUM+RtL) 

R(51)=«2«DUH 
IF IKINKS+l ) *EQ» 

■ (R(67).UT* 

(R 168) .LT. 

«R(69) ,t-T» 

1R102) «LT» 

(R1B3) •UT« 

R C6*n«0, . i.. . 

JL=0 
jf=o • 

Oo 25 L=1.S 
IF IR(7 g+L) 

If tR{7c+L) 

K 1NKS+3)=1 

If 1JF.ED.5) K(NKS+3)=0 , 

IF < JL , EG - 51 K t NKS+3 ) =2 

COND=R (B2) 

IF IJL.EO.S) C0ND=R183) 

RAD=R(67)/12t 

Ht=R I6B) /12, _ , . — — 

ASF = RAD/H "■ . . , , . 

R {76 I =COI'10» >5656 *3 , I *11 6*H7.366 
R(77)=C0ND*»5 *3,lMl6*RAD*RAD/*‘)*fH. • 

H 1 70 ) =CoNO* ,5» 3> $ 4 I6*RAD/Sof{ i 1 *0^^ ASP /ASP t* 0429 ) 
R ( 79 } =CoND* i5 »3 , I 4 16*R AD/SqrT ( , 09/ASP/ASP + ,0253 J 
R(00l=l ./I2»5+ 1.25* ASP) 

Riei )=1 ,4+ASP )/12.+ASP) 

5Gl*=R(7a)+Rt79) ^ — 

5G2 = R t 78 ) +R I 76 ) +R ( 77 ) 

SC1S-:R179 >+R(76)+RI77) 

6tlA)5 = AMAXl (SGI , 5G2 ,SG5) 

IF (ST EDDY ) GO TO 50 

■ IRIO*!) ,I-T» 

■ .l.T» 

, L T . 

• LT. 

»*l^T • 

,LT. 

• l.T 


IR(BS) 
(R( 86) 

1 R ( 08 ) 

1 R ( 89 ) 
tR(9c) 
(FllOl ) 


,001) R ( 04)1= 1 57 , 
l,E-20) R (85 )«2r 
.201) R I 86) = ,78 

,001) R (86) =1,9 . _ . _ 

.201) R (89)=, 724 
,nci tAfJD* NSTR (2) ,EQ»0) 
.cot) RtlOlJ-59, 


R(?0)=52. 


3 0 


50 


IF 
JF 
IF 
1 F 
1 F 
IF 

IF iAiJstRfiP)) •LT^'.'i'j rrti^ 

WH206,2»3.1416*RAD*RAD*H*R : iCl ) *R(89), 

RT8n=AMAxl (6.^‘ (R^ 

bo 30 L = l t5 . . 1 V — 

IF (R(70+L)' •GT. 32.ogoDl) R(95+L)=0. 

IF (R(70 + L} ‘LT, 31 .99999) r(95 + L) = 1. _ 

R I VO + L) =ifiORY» R ( 87 ) •nVH2o* ( I .-•54 *R (95+L) ) 

R(91 )=R191 )+R(Bl ) 'R(04) . -- 

RT94T =R (94 > +R ( 02) “R (88 ) 

R (9b ) =R (95 1 +R ( 82 ) *R (80 1 

COMPUTE Q-FlluX factor ( DT/CI F 0 R.,.NEW_JEHP, C ALCOL A7 I 0NS_ 
If (.NQT.STEDOYJ go to 60 


FTRAY053 

FTPAY054 

FTRAYS55 

FTRAY056 . 

FTRAYD57 

FTRAYOSB 

FTRAY059 

FTRAYpAO 

FTRAYt:6l 

FTRAYnA?. 

FtRAYo63 

FTRAYn6<l V 

FTRAYpAS 

FTRAY066 

FTRAY07>7 

ftrayqao 
F tray 06 9 
FTRAYH70 
FTRAY071 
FTRAYOTZ .. 
FTRAY273 
FTRAYOy*! 
FTRAY075 
FTRAY076 _ 
' FTRAY077 
FTRAYC7B 
FTRAYh?? 

ftraycbo 

FTRAYC01 ' 

FTRAYP82 

FTRAYn43 

FtRAYD«4 _ 

FtRAYnOS 

FTRAY 986 

FTRAY087 

FTRAYCnO 

FTRAY089 

FTRAYn90 

FTRAYP9! 

FTRAYC92 

FTRAYC93 

FTRAY 094 

FTRAY095 

FTRAYn96 

FTRAYP77 

FTSAYoRn 

FTRAYn99 

FTRAYlOn 

FtRAYIOI 

FTRAY102 

FTRAYin3 

FTRAYIO‘1 

ftrayios 
FTRAY 106 
FTRAYin? 
FTRAYIOO 
■ FTRAY109 
FTRAYI 10 


• - O " 

ro 


03 

cn 


ro 


ga . 



H82T 


'^ 003 17 ’ 

III* 



Xs.a/GHAX '■ ■ 

□ 03 20 

112* 



LL-2 5 

0 0321 

II3» 



GO TO 70 

0 03 22 

M M •: 


, 60 

DtH=I>TIHE/36DO. 

00323 

1154 



Ll.-lf tX {OTH/AHlNl (OtH 

003 2 M 

116- 



DTYME=DtH/FLOAT (LL) 

0032 b 

M7» 



XstDTYME/R(93) 

00326 

nn* 


70 

LpAS5=0 

0032 7 

119- 


75 

LPASS = LP/.5S+I 

003 3 0 

120> 



T A V Ct e . 2 . . ( T 1 + T 2 + T 3 + T 4 * 

0033 1 

1 2 1 * 



CALL 05URR 

0033 1 

I22» 

c 



0033 1 

123* 

c 


SET HEATER POWER 

003 3 1 

12*1* 

c 



0033 2 

1 ?5» 



IF (STEODY} GO TO lob 

0033 

126* 



IF «R( 1C>41 .GT.O. ) GO 

003 3 6 

127* 


* ' 

QHTR-0, 

00337 

l?UV 



GO TO no 

003 HO 

129* 


77 

IF (NSTR{2) .EQ, 116 

003 H 2 

13C® 



LaKCnKS+l 1 

003 

131 <• ' 



IF (R(7n+LJ .LT. R(84 


I 'f J + ,9 9 V 


003H5 
00347 
00351 
0035 2 , 
00353 
0035‘1 
00355 
00356 ■ 

0035 7 
003 60 
003 61 
00361' 
003 61 

0036 I 
0036 2 
00363 ■ 
0036H 
00365 
0036 6 

0036 7 

0037 0 
0037 1 

00372 

00373 
0037H 

00375 

00376 
00376 
0C376 

00376 

00377 
00*100 
00*501 
00*502 

00405 

00406 
00410 


If (R(7o+U *GT. R(B4)+R(8S)) 60 TO ED 
IF (K(NK5 + 2) »EQ. I 1 GO TO ?0 
QHTR=D. 

K(NKS + 2)=0 ' ■■■■"'*'■ ■ ■ “ ■- ■■ 

Go TO 1 ID 

QHTRfR('?0J*3,‘)12 

K1NKS+2)=1 

GO TO 110 ■ ' ■■ ■ ■ ■■ ■ ■“ ” ~ 

QHTK = Rt69)»3»‘U2 

R(6b)=Rf65)+QHTR . 

QHTR = «HTR-R(62).. . 

COMPUTE HEAT FLOW INTO EACH NODE 

Q34=R (76) *<T3-T*5 ) _____ . ■ 

Q25=R (76 ) * ( T2-T5) ' — ' " ~ 

(?23 = R(77)*n2-r3). 

Q*I5 = R(77) • ( T4-T5 ) 

QI2-R(70)«{Tl-T2) - 

R15 = R(79)» (T l-TS) — 

QW*I*=0HTR»R(()01 

0A3=~.5»(R(56)+r(59)) 

Q( 1 )=0HTR»R(81 )-Ql2-(n5 . 

Q(2)-Q12~Q25-(523 “ ' 

Q (3) -QA3 + 023-a3‘( 

Q(4)»fllV<l + Q3‘(-0*15+QA3 

Q(5)=Qi5 + 0Vf4 + Q25+Q45 

compute nev/ temperatures » allow for melting 

,'tiELT:A=p,: ^ 

JF = D-’ '■ 

Do 200 L*1 »5 
DT=«(L1»X • 

IF (K(N!<rS+3).E(J,2) 60 TO'190 — • — 

IF {R170+L).GT, 32.000011 60 TO 150 


FtRAVi 1 1 ' 
FTRAYM2 
FTBAYl 13 
FtRAYI I *5 
FTRAYllS 
FiRAYt 16 
FTRAYI 17 
FTRAY 1 1 B 

ftraymo 

FTRAYI 20 
FTRAYI?! 
FTRAYI22 
FTRAYt23 
FTRflYl?*) 
FTRAY I 25 
FTRAYI ?6 
FTRAYI 27 
FTRAY17B 
FTR AY I 29 
FTRAY I 30 
FTRAYJ3I 
FTRAY I 32 
FTRAY 1 33 
FTRAY13*! 
FTRAY135 
FTRAY I 36 
FTRAYI 37 
FTRAY I 38 
FTRAY139 

ftrayiho 

FTRAVlHl 
FTRAYIH2 
FTRAYI *13 
FTRAYI M*I 
FTRAY 1 *15 
FTRAYI 46 
FTRAY 1*57 
ftRayi*»o 
FTRAYIR? 
FTBAY150 
FTRAY151 
FTRAY 152 
FTRAY 153 
FTRAY IBM 
FTRAY 155 
FTRAY 156 
FTRAY157 
FTRAY 155 
FTRAYT59 
FTRAYI 60 
FTRAYI 61 
FTRAY162 
FTRAY163 
FTRAY16*? 
FtRAYI 65 
FTRAYI 66 
FTRAYI 67 
FTRAY I 68 


com 2 
QOHJ M 
0 D m 6 
0 0117 

0 OH 20 
00122 
0 012 3 

00 125 

00126 . 
D0127 

00130 

00131 
DC 133 
00135 
00137 
00110 
dol l I 
00112 
00113 
00111 
00116 

00150 
D01S2 
00153 

00151 
00155 
0015 6 
00157 
00162 
□ 0162 
00163 

00165 

00166 
0017 0 
0017 2 
col? 3 

001 76 
□ 0500 
00500 

0050 I 
00503" 
00535 
0 0506 
005 JO 

0051 1 

00512 

00513 
00511 
0C5lS 
00517 
005 21 
00b 23 
00523 
0G516 
00516 
00516 
00516 
005 17 
00550 


16V* 

I 70* 
171 y 
172* 
173* 
171* 
175* 

1 76* 
177* 
17U* 
17?* 
lUO* 
181 * 

1 B?> 
103* 
181* 
105* ' 
186* 
107* 
IBO* . 
I0?« 
190* 

1 9 1 V 
192* 

I 9 3 ft 

191* 

195* 

196* 

197* 

190* 

1 9 9 » 

2 CO* 
201 * 

203' 
2D1' 
205* 
206* 
20 7* 
. 208 *. 

209* 

210* 

211* 

2 1 2 « 
2 13- 
211 * 

2 15* 

2 1 6* 
217* 

2 10* 
2 19* 
220 » 
2 21* 
22 2 * 
223* 

2 21* 
2 Z5 » 
2 26* 
227* 


IF t»M0T*5TECiDYJ GOTO l20 

IF < IM70+L) •l-T« 31.997991 JF-JF+I 

Go TO 190 

0Tafl(L)*DTYME/R(90+U) „ . . ^ i- 

IF tRl7d + l.)+DT .LTf 31.999V?) 60 TO 110 
QHELT=V<H20«R(95+L)*111. , ' 

If tO«Ll*OTYHE .6E. QHEUT ) GO TO 130 

OTa32.0-R<7O+L) — 

Rl95+LJ=R(95+U»-0CLi*DTYME/i11./WH20 _ ^ 

R rVO + L ) =‘.DFY*R ( 87 >>iYH20* U .-•51*Rl95+l. n 
If (L.KO.ir Ri7T)-R(7l )+»|01|*R(8B) ^ 

IF IU.Eq.D R(91)=R(91J+Rtao)’Rt®8) . 

IF tU'EO.SJ R(?5)=R(95)+R(80)^RtSB) 

GO TO 200 . . „ , • 

0T>=1«(L1 *DTYI1E''QHEt.T)/R(7D + L) .. ■ ^ " - 

R(95 + U=Q. 

Ju-ou + i;:, 

Rt90 + 1-)=W0RY*R(B7)+V/H20 

I F (UcEQ.D' R f.9T 1 =R I 91) +R ( 8 1 )lR < ®| |-— — 

If tU.EO.D R(9ljrR(91)+R(8Q|*RiaBi 
If (U.Eo.5) Rt95)-RI95;)+R(80)’R<®5) 

Go TO 190 

JF = JF+ I : . 

GO TO 190 

Rt7D+L)=R(7a+U)+0T ^ 

I F tABS ( DT ) kGT , DELT A ) DELT Aft'ABS ( PT ) _ — _ 

R(5I ) = .2*i R(7l)+RT7Z)+R<73)+Rt7H )+Rt75) ^ 

ADJUST CONDOCTORS FOR New . ice/water BALANCE 

IF (K(NKS+3) .EO. 2) 60 TO 2l0 

K(NKS+3)=l . ^ 

ir IJF .ER. 5) K(HKS+3)=0 

IF IJL .LT. 5> 60 TO 210 
lC{NK.S + 3)=2 • 

Oo 220- L=l |1 . — — 

I R(75+L)=R(75+L)*Rt83)/B(82) 

GHAX = 6HAX*R(03)/R182) 

CHECK FOR RE-ITErATION IF REQUIRED 

I If JSTEDOY ) 60 JO 270^ — . . . , i . 

If ILPASS.UT. LL) GO To 75 

1 If IlPA5S.LT.LL .AND. delta .GT*. 05) GO TO 7 S 

1 R(53)=R|53)>R(6i) ... 

R(b6)=R(56)*RU6l 
R{59)aR(59) *H(66) 

R(62)=R(62)*R(66) , . ■ , , 

R(651-R(65)/FL0ATtLPASS)tBT66| , , 

IF lAlI) ,GT. i.F-V) R ( 2 )=A (2>+R (56 ) /A ( I ) /CpA 
If I.NOT.STFDDY) R(l05i=Rllo1) 

WR I T-E^ ( 6 ■ 3 ) 0 ) * LP ASS ) LL^ JF*| jL , T AV G , OHTR , QHELT , DT THE , 

)*Fornat*^}/*^ lpass«» » II 1 '^^^i1l=» , I 7 . * * t i ’c 

• I TAVGa' >GI Z.S'i » QHTR=* >Gl2»5| • QHELT= ’ i G I 2 . 5 » • 

* 51' Q(*. II. » )«i , G 12 . 5 ) . ’ ,X“’ >G12»5/ « _SGln‘ 

. I SG2=',6I2.5, • SGSc*.G12.5/) 

RETURN ' 

■ END: 


“• .13, 
DTyHE= i 
.Gl2»5| 


FT RAY 169 
FTRAY170 
FTRAY171 
FTRAY172 
FTRAT173 
FTRAY171 
FTRAY175 
FTR6Y176 
FTRAY 177 
FTRAY17C 
FTRAY179 
„ FTRAY HD . 
FTRAY HI 
FTRAYH2 
FTRAY H3 
FTRAYH1 
~ FTRAYH5 
FTRAYT86 
FTRAY187 

^ ftrayhb 

FTRAYH9 
FtBAY)90 
FtRAYHI 
„ FTRAY 192 
FTRATH3 
FTRAY191 
FTRAY 195 
_ FTRAY196 
FTRAY197 
fthayho 

FTRAY 199 

FTRAY200 
FTRAY201 
FTRAY202 
FTRAY203 
FTRAY201 
FTRAY705 
FTRAY206 
FTRAY?07 
_ FTRAV20B 
FTRAY209 
FTRAY2 in 
FTRAY211 
FTRAY212 
FTRAV213 
FTRAY211 
FTRAY21S 
_ FTRAY216 
FTRAY217 
FTRAY2H 
FTRAY219 
FTRAY720 
FTRAY221 
.FTRAY772 
,S/FTRAY723 
FtRAY?21 
FTRAY22S 
FTRAV226 
FTRAY227 


ENO OF COMPILATION: 


DIAGNOSTICS. 




02-118571-2 


MGE is; 

KK 5 B QT TAT.rP Yf 


0 FOH ROSHOSjROSHOS ■ . 

UtH V AC 1 108 F ORTRAN V E/EC 1 1 LEVEL 25 A - t EXECB LEVEL ElZOlOOlOA) 
This COHPiLATloN WAS done ON 25 AUG 75 AT IflS'tDjSQ 


25 AUG 75 


jubroUtine roshos 


Entry point 0005 i 7 


stor age used J code Tl r 000532 I -DATA t 0 r^0a0063 I 
COHHOM blocks; 


"BLANK ~C 0 H H 0 M ( 2 ) ' 0 0 0 0 0 0 " 


0003 
'ODOT 
0005 
0 006 
0007 
00 10 


COMP 

R ARRAY 

KANDV 

RISC 

PROPTY 

SOURCE 


OBOI 17 
OCGl 15 
000001 
000036 
001002 
000102 


EXTERHftj_ KEf ERENCES t BLOCK j NAME 1 ' " ' 


7 =- 

t 

»-* 

cn 


001 1 
00 12 


OSURR 

NLRH 3 S 


storage 

ASSlGNHENT tBLOCK, type, relative LQGAtION| >iAHE| 







ODDI 


000361 

l OoC- 

QODI 


0C0817 

1 1 OL 

■ 0001 


Qd0820 

120L’’ ■ 

ODQl 


000863 

ISDL 

ono 1 

ODOl 


0002 1 6 

166G 

0001 


00E161 

20L 

OCOl 


003873 

200L 

DC'0 1 


pn03o 1 

2nZG 

0001 

0001 


000321 

BQL 

DVXO 

R 

SCGOOO 

A 

0010 


000023 

B 

0007 


ODOOol 

CP 

0010 

0010 


0CQ087 

tPD 

□ 007 


ECO 1 88 

C PCdNU 

0DC7 


000185 

CPCONV’ 

0007 


000^6 

CPC02 

0007 

0007 


dOOibO 

CPOXY 

G 0 on 

R 


CpRP 

OC07 


C0C151 

CPTC 

0007 


OOOOOD 

CPO 

C003 

0000 

R 

ooo?c 

D T H 

DC06 

R 

E CL 

□ TIME 

roro 

R 

CCCnD7 

DTYHE 

0307 


DPO 1 S2 

GAhCrAS 

0006 

DO 10 



I A1 

r? lo 


•*» r, J 

lOl 

tiOr!4 


eocsoo 

niAXR 

COCO 


OnOai,2 

IMJPS 

on 00 

000b 

I 

ntc coo 

K- ■ ■ /..■ ■ 

c?nb 


Cf i TP2 

KFLSYS 

0006 


02 COOP 

KOUTPT 

0306 


O.CCoo8 

kporop 

0006 

0006 


Dtiorti^ 

KTRaNS 

or 70 

i-: 

r*c:Er-22 

1 

OODC 

I 

OOOOlG 

LL ■” 

OCOO 

I 

OcOoi 1 

LPASS 

0006 

.0006 



MAXCt 

0C06 


CCC'’ 1 5 

MAXLP 

0006 


0000 1 6 

haxslp 

0006 


OCOO J 7 

M A XSSI 

0006 

0003 


□PCn 17 

N 

0010 


Dccasa 

MA 

00C3 


O0C02O 

Nftl 

oqIo 


0r.0os3 

Nr 

0003 

0003 


Q 00 07 2 

NC ’ 

0003 


0 CCS 2 3 

UCAB 

0003 


COO 32 8 

NCFL 

D006 


QP0020 

ngomps 

0006 

— 0003 

' 

□00025 


0003 


000026 

NEXy- — 

" 0003 


00C327 

NK 

0003 


0Q0030 

NKHX 

0003 

0003 


000q32 

NKT 

□ 0 a 6 


3 C 0022 

NlAST 

0003 


0nnn33 

nlfl 

D033 


000038 

NP 

on 06 

0003 

I 

000035 

NPAS5 ; 

0003 


000036 

NPF 

00 ID 


nnpdsH 

NPFS 

0010 


000055 

NprST 

0003 

0003 


ODOoM5 

m 

0003 


200086 

US 

0003 


O0CO87 

NSF 

0010 


000063 

NSFS ^ 

0010 

0003 


rjCiOd^Q 

HS Fl - ^ 

0003 

,T;' 

000056 

NSTR. 

0003 


003 1 CO 

NSUBR ”T' 

0003 


opoioi 

NV 

0003 

0006 


000025 

PGHIN 

C036 


000026 

PLHIN 

0000 

R 

0 000 CO 

POSH ) 

0008 

R 

OOOODl 

R 

0007 

0010 


00007 2 

RIIdA 

CO 10 


OCC073 

rhob 

0007 


COP 153 

rhoo 

00q8 

R 

000 ll 8 

RT 

0000 

00 06 


000027 

START 

onnA 


000:030 

steady 

0006 


Cn003 1 

TIME . . 

0006 


CCO032 


0006 

0006 


oroo3 

TflUi 

C0j5 



V 

0C07 


000320 

Vise 

DO 10 


OCOO78 

VISCA 

0010 

0007 


□003 17 

V I SC O 

00 07 


COO 8 63 

V ISGAS 

0007 


00 1 oe 1 

visliq 

OOQC 

R 

CCOOtll 

Wp RO 

0007 

0010 


000076 

Vf/TMA ’ 

0006 


G0CC3S 

WTMAX 

0010 


00CO77 

VVTHB 

0007 


OOO63O 

wthcon 

DP07 

0007 


000632 

WTHTC 

0007 


000868 

wtmo 

0000 

R 

OOCCOS 

X- : ; l ■ 

copy 


QOO638 

XK 

ODl 0 

"0010 


^ouoidi 

X K B ‘ 

0007 


000777 

XKGAS ■ 

0007 


DOlQOO 

XKLIQ ■■ 

0007 


OQO 633 

XKO 

ODOS 


OOOH70 
000875 
000086 
000187 
OOOOOO 
COQOOl 
000008 
000005 
000007 
000028 
000021 
C00021 
OOOQ31 
000023 
000037 
000068 
000102 
000158 
000012 
000033 
000075 
000865 
0006 3! 
000 100 
000103 


1 60L 
27 OL 
CPA 
CPOIL 
DS 

GRAV 

J 

KSYpAs 
LPStjH. 
MINSSt 
N 8 I 

NEWDT _ 
MKS 

NPASPD 

NPFT 

NSPST 

MVT 

RHO 

B 5 t 

THAx 

VISCB 

VVTH 

WTHnU 

XKA 

Y 
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r 




oaiQl 
00103 
DO I 0 3 

00103 

00104 
DOiOS 
00106 
CO 106 
00 106 
00107 

do 107 

00107 
00 1 10 
□ 0110^ 
001 11 
^Ooi 1 2 
00113 
DO I 13 " 
00113 

00 I 13 
OOllH 

00 1 16 
GDI 20 
00 122 
001 24 

VOO I 2 6 
00130 
00132 
00 134 
00 136 
00 14 0 
00 I 42 
00144 
00146 
00150 
00152 
0G15S 

Do ! 54 
00 154 
DO 154 

00155 

00156 

00 15 7 
00160 
0016 1 
00162 
00163 
0C164 
00165 
QD I 70 
Ob in 
□ 0 1 7i 
GO 17 I 
00171 

00173 

00174 

00175 

001 76 
00177 


If 

-3f 
4> 
5> 
6^ 
7> 
B* 
9* 
IDf 
11 * 
I2f\ 
131^ 
14» 

1 

1 6 » 
I7f 
18^ 
19* 

7 0 ^ 

2 1 

23*^ 

247* 

25* 

26 V 

27 6 
2B«^ 
29* 
30** 
3 16 
3 2 e 
336 
3 4^ 

3 56 
36V 
376 
3BV 

396 

4o V 

4 1 V 
4 2<» 
4 3 
44 V 

4 56 
46* 
47:^ 

48 V 
49*^ 
50> 
5l> 

52 V 

53 6 

5 46 

55 « 

56 V 

57 V 
5B*r 

59* 


C: 

c 

c 


SUBROUTINE ROSMOS 

COHHOH /COMP/ 0S< 15) .NiNAl ,NB1 ,MC,NCABjNCFL,NEn^ 

1 NKEX ,NK5 ,MKT jMLFL , NP , NPASS ,NPF , NPPT ( & ) , NO 1 NS , MSP ,NSF.T ( 6 J , 

2 NSTRn0)»N5U8R,NViNVTiVM2) 

Common /RARKAY/ iMAXR,Rti) 

COMMON /KANOV/K 


Common /HISC/ OTIME»CRAVrKFLSYSiKOUTPTiKPDROP,KSYpAS,KTRANS, 
UPSyM(5[,«AXGi/M5XLP,llA^^^ 


1 Lf-'iiun ( t> ) , Al. 1 I I'M' Aur I n«A i i i ^ ’ ujtI^Tv 

7 MI MSS I iRfiMlN, PLMIM > ST ART , sT F AD^ 1 T t HE » T I HEHX > TM A X ,THIN ,WTHAX 
- COMM N /PROPTY/ CPolcPTS^^^^ 

1 G AMGAS^HOO , RHO ( 99 ) . V 1 SCO , V I SC ( 99 ) * V I SGAS ,WTHO , WTM ( 99 ) , WTIICON , 

2 . WTHDIL»WttrlTC»KK0iXK(99| jXKOASjXKLIQjVJSLIR .ipsr,- uprcTfii 

Common /SOURCE/. A(l9).»Btl9) »CPA»CpBiIAI»IB1jNAiNB,NPFs>NPFST«6) | 

■■'1 NSFS,N5FST(6) ,RH0A,RH0BiVISCAiVI5CB|WTHA»WTHB,XKA,X1CB 

OlMtNSlON V(lJ,K(H.RT(i; 

EQUTVAlEMCt (V,K), (R|76>»RTM)) 

LOGICAL STEADY — • 


IHITIAU2E ROSMOS data 


IF tNPASS 
IF (R(5U 
: IF IR15‘U 

IF (H(57) 
IF (R(60) 
IF (R(63) 
IF (R<65) 
IF (R(66) 
IF tR(67) 
IF (R (70> 
IF IRt7l ) 
IF (R(72) 
If (R(73I 
IF (R 179) 
IF (R (75 I 
IF ( (*MOT 
20 CoNT I NUE 


»GT« C) GO TO 20 
.LT« .CCGl I R{51 )=7S. 
.LT. .(?C"U) R(S9}=70. 

,LT • .0001 ) R (57 J a70» 
.LT* .CCCl ) R{6D)=7Ct _ 

.LTt ,0001 I R(63)=70. 
.iT. ,0001 J R(A5)=,96 
.LT. .COOl ) R(A6)=.93 

,LT. .CGCiI R(67)=S0« 

\LT, ,C0C1I R(7C)=9. • 

.COOl) Rl7i)=i01 
,0001) R(721«.D08 
.0001 ) R(73 )=9Q0. 

,OC-Ol) RlTRl^RS, 

.0001 I R(7S)=200» 


iLT. 
, L T . 
.LT, 
► LT. 
.LT 


.steady^ .ANOrRC?^ .0001 1 R(76 )p2.5 


W AT ER FLOW B AL A NC E 


C 

C 

C 


;_P{ISI1=R{75M.R(72)/R(71| 

" R (20 T»*PRP • utq 1 ~R 1 79 ) -POSM ) / ( R ( ?3 I -R ( 67 I-R ( 75 1 ) 

R(I ) = A(1)'^R(20) 

R(3)*A(M) „„ . 

' ■ R(9)=A(9) 

R(22I=R(79) 

R(23)=R(79 J 
Oo SO Ls|Sil9 
R(L)=A(i |•R(^)/A(^ 

50 R (L+ 1 9 ) >A ( L ) *R ( 20 1 /A ( I ) 


SALT concentration balance 


60 CPR0=ll,-R(66I) «R(7l) / R(65) 

R(69 »-CPR0*R(72)/R(71 I 

R(68 J-(R(72I *A( I )'-R(69) •R(20J )/RMI ^ 
J=K(NKS+1 1 

IF (J.LE.O) GO TO 80 


roshoooi 

RnSt'C‘C’02 

R0S«0M03 

ROSMOn';''( 

RoSf'OoOB 

RP5M0CO6 

ROSH0007 

RoSMOOCa 

RnS*.0P09 

ROShPOIO 

ROSMOOl I 

ROSMOO 1 2 

R0SMOO13 

ROSHOnl 9 ■ 

R05M0Q15 

BOSHOOI6 

R0SM0P17 

ROSPOOlB 

Rn5MCCil9 

RnSMO'^PO 

Rns»’Oo?i 

R0SMf)O22 

R0SMCip23 

RoSHnn29 

ROSMOn25 

Rn5H0o76 

ROSM0027 

ROS»'Or?fi 

RnSM0029 

R0SM0030 

RnSM003 1 

R0SH0n32 

R0SH0033 

RoSHOnSM 

RpS»^P035 

R0S('Cfl36 

R0S»^0n37 

ROSM0030 

R0SM0C39 

ROSHOnuo 

RDSH009I 

ROSMOO‘*2 

R0SM00«3 

KOSM009H 

R05”0C95 

R0SMtit»H6 
R0S«0ri9 7 
ROSM009B 
R0SM0P99 
R0S”0p5r» 
ROSMO991 
Rf)St'Cir52 
RnSM0r>53 
R05MCn59 
R0SM0055 
ROSM O0S6 
R0SH0057 
■ ROSHOOSB 
ROSM0O59 


Z : 


2 iZS 31 l-za 



00201 
0020H 
00 2 05 
00206 
002 10 
00210 
002 10 
00210 
00212 
00213 
002 15 
0,0216 
002 20 
00221 
002 22 
00223 
0022*) 
002 25 
00226 
002 2 7 
002 30 
0Q2 31 
•CD232 
00233 
00235 
00 237 
□ 02*10 
002H2 
002 H3 
002 *tH 
002 *15 
002M6 
002 ‘(7 


DO 70 L-ltJ . , „ 

CpRD=M.-RTn+2'*J+L))i’RTn+L) / R165) 
RTn+3«J+L)=CPRD»RT( 1 +J+U)/rT( 1+L) 

RT I l +R^J + LlslRt ( 1+J+LJ *A(1 )-RTl l+3*j+U*Rl20J J 
IF 1NE«0T»E0.-U RtTURH 


Bin.. 


TO 220 


thermal balance 

IF^1R15|]+R(5a)+R{6i)+R|6‘|) . LT . I . E-6 '/ GO TO 220 

Call dsurr 

IF l ( .NOT .STEAD YV . AND » ...NStR 1 i 6 ) ,0) GO TO 100..._. 

X=.S/rR(52)+Al 1 )»CPA) 

Go TO 1 10 

DTH=DTIHE/3600, / ; , 

D T Y M E « R 1 7 6 1 • . 5 / 1 R C 5 2 1 + A M ) * CP A ) _ . 

LL=1F1X1DTM/AMIN1 (UTHiOTYHE1+«99) 
DTYMEbDTH/FLOATILL) 

XnDTY|lC/Rt76) 

LPAS5 = 0 V . . . 

UPASSsLPASS+l 

Kfinilll + lAM )*CPA«(A(2)-R5i)~Rt53) J*X „ _ . 

IF ((. NOT. STEADY) *AHD. NSTR 1 1 6 ) ♦ EQ .0 ) GO JO J50 
If 1 ADS(R5l“R<51 n .GT. .05 ,AND» LPASS»LT»25 ) Gq To 
GO TO 2C0 

IF ILPASS.GE.LL) 60 TO 200 

CALL QSORR^ . . 

GO TO 120 
R12)«R(51 ) 

R{21)=R12) 

RETORN 

ENO 


0 160"^ 


ROSMO06O 
R05W0Q6 1 
R05MQn62 
ROSM0063 
ROSHOnA** 
ROSM0065 
R0SM0(i66 
RD5t'0c67 
HOSMOnAa 
R0SH0n/i9 
ROSHOC'70 
RDSMPC71 
RnSH0072 
R0SMC073 
ROSH007*1 
RoSMOnTS 
R0SM0P76 
ROS”OP77 
R0S><0078 
R0SM0079 
ROSMOnRO 
RoSf^Onai 
ROSMOnaz 
RoSMOnas 
R0S»'Cpa9 
ROSMOnaS 

BOSMOnPA 
ROSKOnOT 
ROSMOr.RS 
RosMonn? 
RoSMOORO 
ROSMOoR 1 
R0SH0G92 


COHpiLAl I oN; 


PIAGMOSTICS. 
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.'V.T . 

, t'»' / f ■ , 

■3"T0R , » ' SHO xt R > SHO AeR 
UK ! VAC I J 08 FORTR aM V EXEC I I UEVEL 
Tuts eOMPILATIONAAS DONE ON 23 SEP 


25A 
7 5 AT 


•t execs LEVEL 
0HJ27;5l 


EIZOIDOIOA) 


SUBROUTINE SHOftER 


entry point 002223 


'5 TOR AG E“ U S E 0 1 ’ C 0 0 E I i ) ' 0 0222 2 | -0 A T A"t 0 >‘"0 DO R 2 RPa P A NX“ COHN 0 N ( 2 P'O D 0 Q D 07 
COMMON BLOCKS} 

-'D003 “• COMP 0001 IT' ■' . ^ ^ 

000 H S ARRAY 000120 

0335 KANOV 03000:1 *. 

0006 MISC 0-00036 . ' ; : ' ■ ' . ■ ■ ■ ■ . . < ■ . 

“ 0 007 — -PROPTY- 001002 ~ ~ : v .. - . :! 

0010 SOURCE 000102 


"2;3~S’e>’'7'5- 


H;*27' 


OS' 

I 


«D 


EXTERNAL' reference 5 " 2 BlOCKT'NA-MET 


CO 1 1 oSURR 
0012. PS AT 

■ 00 1 3 H6 "~* 

001 H HP 
O DI S , H.3 ALN C 

0316 7 PROP 
031 7”“"TSAT 


0320 
C 32 I 
0322 
.0023~" 
'002R 


NAOliS 
•N10 2S 
EX P 

NEXPfiS- 

NERR3S 


'ST PRAtJ£-A SS tSN HENr-^rUCD "TTPET^El. A TTV E^OCA'rrDNTT^ A'HE'r 


OOOK 
COO I 
0 000 
0 301 
DDCl’ 
0000 
DD31 
0010 
00 07 
03 0 7 

0;00 3 
b3'30.: 
00 37 
0000 
0313 
0010 
-0004- 
0300 
0306 


-DD1113 
001 537 

000373 
00 04 Mo 
OS 3 MM3 
000205 
DO 07 02 
000023 
0 001 MM 

030151 

C3ooo:,o 

0 3 00:13 
003152 
000012 
0000 op 
oooosT 
-D00003 
DO 0 0 05 
000016 



ODD I " 

0001 

0301 

0031 

000 3 

0 001 

0301 

0 307 

0007 

D007 

0300 

0300 

0300 

0000 

0000 

DOOM 

00 DO 

C 000 

0006 


•001 IMS- 
DO I 57 J 

dot “SO 

C01722 
030227 
ooosis 
OOOTlO 
OtJOOOl 
DOnl m5 
CDOOSO 
030306 

033056 

03331 1 
,000030 
OD002M 
OOODOD 

1-003062 

I 00301 5 
000017 


laoL 

260L, 

320L 

335F'“^ 

M8L 

V2L 

CP 

CPC0N\r 

CPO 

DTH 

EVAP 

GR AD 

G^^ALL 

HMIX 

IHAXR 

KPaSS— 

LPA55 

HA XSSI 


■qqoi 

000 I 
0031 
000 1 
OODO” 
ODOl 
3001 
0010 
0007 
0000 
0036 
0030 
0006’ 
ODOM 
0000 
0000 
-0006- 
0006 
0006 


00121 M 
000277 
001670 
002035 
000265 
00055 M; 
000777 
000 DM6 
0001 M6 
00D3M2 
0C0020 

003355 

00000 I 
OODl 17 
000066 
DDOMDS 
-OOOODM- 
000007 
00002M 


13 ML 
20L 
305L 
3 2SL 
335 F~ 
SOL 
9ML 
CPA 

CPC02 - 

CSKIM 

OTIHE 

EVAPSK 

GRAV - 

HC 

H51 

INJP5 

KPDROp- 

LPSUM 

HINSSl 


DDOl 
0001 
0031 
0001 
DOOD' 
0001 
0001 
0000 
0007 
0000 
0000 : 
0030 
■oooo 
0000 
0000 
0005 
-DD06 
00 06 
0003 


-DO 1203 
00 0 3 33 
0QI71M 

002 lo2 
- oooioi 

00061 7 
031056 
R 0DDD20 
000 I M7 
D00QM3 
DOOOmM 
OOOD5M 
000036 
000053 
000065 
000000 
-00 000 5 
OOQOIM 
I 000017 


T35U 

223G 
3 1 DU 
326U 

3M0F 

70L 

96L 

cpaa 

CPDIL— 

CAaLL 

DTYHE 

EVaPA 

6SK 

HD 
H77 
K : 

-KSYPAS" 

HAXCJ 

N 


Door 
QDOl 
0301 
0001 
0000 
DOOl 
DO I a 

0013 
0007 
0 003 
0300 
0003 
0 000 
OOlH 
0010 
0306 
'0006 
0306 
0010 


001301 
□01 636 
002030 
002120 
0D31M7 
OS 36 M2 
003030 
D000M7 
000152 
003030 
000037 
000031 
003027 
ooDono 

000053 

020002 

"000036 

000215 

000052 


ISQL 

230L 

315L 

3275. 

3m5F ~ 

6DU 

A 

CPE 

C?OXY-~ 

DIF? 

OJH 

first 

GSKIN- 

MF 

lAl 

KFLSYS 
KTRAN5- 
HA XL? 
NA 
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0003 
0 00 3 
0003 
0003 
DO 10 
■0003 
0303 
0006 
0000 
0307 
000 0 
0000 
0006 
-OOQi 
0000 
0010 
CuGOi 
: 000 0: 
0 00 7 
0010 
0000 


000020 
-1 000024 
000027 
000033 
000 OB 4 

— 000047 

0 30 100 

DO 30 2 6 
R 000047 
000 l &H 
R 00 0 00 3 
R 0 DO 03 4 
000027 
0000:33 
R 000002 
003075 
R ,0.030 2 S 

R 000026 
003632 

DOOiOl 
R 000040 


NAl 

NC FU- 
NK 

NLFU 
NPF5 
NSF — ■ 
N503R 
PUHIN 
PH INF 
RHO 
KR6 

R2 

START 
THAX - 
TffOJT 
V1SC3 
f<uCOND 
stmaa • 

ATHTC 

XKB 

X77 


0010 
0006 
00 03 
000 3 

00 io 

00 JO 
OOOO- 
000 0 
0000 
0010 
0000 
0 000 
000 6 
-0006 
DOOS 
0007 
0300 
0006 
ODD? 
0007 
0003 


000 05 3 
— • 00002 0 
000030 

000034 
000055 
00006f 
I 000041 
R 003032 
R 003045 
R 000072 
R 000004 
R 000063 
U 000030 
DD0034 

OOOOSO 

0D3317 
R DC 00 17 

■ C0CD35 

0004 64 
000777 
, 000133 


NB 

NCOfJPS- 

NKEX 

NP 

NPF5T 
N5PS — ^ 
NTYME 
PR 

PiWOUT 

RHOA'“ 

RR7 

RSI 

STEADY 
TM I N — “ 

V 

VI sen 

Y70HY 

*THAX“ 

rtTHD 

XKGA5 

Y 


0003 
-0006 
0003 
0006 
0003 
■DO 10 
0003 
0012 
0000 
"OOOD 
0000 
ODOO 
OODO 
-00 I 7 
0007 
D0D7 
0000 
‘0010 
0007 
0007 


000021 
■--000021 
I 000D31 
000023 
I 000037 
CD0064 
OOOlDl 
R 000 030 
R 000260 
R 000021 
R 000033 
R dOOD35' 
U 30OD0O 
•R D03000 
000320 
000463 
R 000067 
^ 0000? 7 

000634 

001000 


NB I 

•NtrtOT— 

NKS 

NPASPO 
NPFT 
NSFST — 
NV 

P S at 
QSKIN 
RHOAA~ 
R I 
R6 

STEDDY 

•tsat 

Vise 

VIS6AS 

WSAT 

XK 

XKUIO 


0003 
0003 
0003 
0003 
0003 
0003 
0003 
0000 
0000 
’ DOI O 
ODOO 
0000 
0006 
-0000 
0010 
0007 
0007 
■ ODD? 
0010 
D0D7 


000022 
— 000025 
000032 
I 000035 
000045 
■ -000050 
000102 
R 000057 
R 00006 I 
• - 00007 3 
R 000014 
R 000064 
000031 
-R- 000031 
R 000074 
DO loot 
000465 
■ R- 000630 
R DOOtOQ 
000633 


NC 

NEXT 

NKT 

NPASS 

NO 

NSFT — 
NVT 
PVAP 
RfiTALU 

RH03 

RlQ 

R77 

TIME 

TWIN 

VISCA 
V iSUlQ 
« T H 

«TKCOir 

XKA 

XKO 


0003 
0003 
0006 
0003 
0003 
0003 
0006 
0000 
0 00 4 
000 7 
0 000 
ODOO 
0006 
0000 
0000 
0000 
COlO 
0007 
0000 
0000 


000023 
- 000026 
000022 
1 003036 
003046 
1 000056 

003025 
R D30Q32 
R DOOODl 
000153 
R 000015 
R 000351 
C00032 
R 030046 

R 003322 
R 003316 
000076 
“000631 
R 000023 
R 000037 


ODIOI 

J: • - 

— 


031,01 

2® 

c 


021Q1 

3 c 

c 


001 01 


C- 


■ .00103— ^ 

5«* ~ 



00103 



1 

■00103 

7 0 


2 

DDIO^ ; 

9e 



■UO 1 05 ~ 

- — ' 9 e r- 



DO 106 

1D«> 



021 06 

1 J • 


1 

ODl 06 ; 

12® 


2 

001 07 ™ 

J3Q — - 



0DJD7 



i 


SU8R0UT 1 NE SHORER — — — 

THIS ROUTINE HODEUS A «HOUE-BOPV SHOWER 


iUlJT aMontrt 

1C f NC AS . NCFU , next i NEX V » NK i — ' — 
HPFTl6riNQ.NS,NSF,NSFTU) , 

; ,K0uTPTiKPDR0P,kSYPA5iKTRaNS, 
»XSSr ,NCOHP5 iNEROT ,MLAST,NPASP| 
iY tT IHEjTl HEHX.THAX ,THIN » «THaX 
)U,CPC0NV,CPC02,CPDlU,CPOXr,CP' 


IVAUENGE t V|K)±^{R(79) ,HC» 

^ ICAL STEAOYkSTEDOY, FIRST 
STEOOYsSTEAOY 

IF I N s T R 1 16 > t E Q .1 1 _S T eddy a rTRUE» 

initialize shower data 


IF (NPASS * 
'K I NKS* I I =-l 
ir IR 151 J ♦ 
IF (RI54 1 » 

IF 1RI551 « 

•IF^ lR(571-i 
IF |R(581 » 
IF. {R 160) . 


•UT. .00011 
.UT. .DOOM 
.UT. .ODOM 

.uTr“.oaon- 
,UT, ,00011 
.UT. .ODOM 


RlSl 1=70, 
R154}=70i 
R 155 I =14, 
-R(S71=»70< 
R(5Bl=l4, 
Rl6o)«70< 


SHOWROOM 
SH0AR002 
SH0rtR003 
BHD6SD04 
SHOWHDOS • 
SH0nRD06 
SriOAROO? 
SHOW R003 
SHOARDO? 
SHOAHoI 0 
5H06R01 I 
SriOAROlZ 

■ ShOiVROI 3 ' 
SriOAROl 4 
5H06R015 
SHDftRol 6 
SHOrtRDl? 
SH0A4D 1 B 
SHOiVsoi 9 ■ 
SHOftROZO 
SH06SD21 
SH0ftRD22 
SH0.»S323 
5H06RD24 
5K0ARD25 
5HO«R026 

■ SH06R027 
SHO6R02S 
SHOflR029 
SHOAR030 

*SH0 6R03r 
SH0frR032 
SH0AR033 


J432t ■■ . ■ ' " ■ ■■ ► . . 


bD13i 
COHO 
0D1H2 
DD J H H 
001 46 
OOIBO 
00152 
DO 154 
00156 
OD 1 6 0 
0016 1 
00163 
DO J 65 

.00 1 6 7 

001 71 
00 I 73 
00175 
00177 
00201 
0020 3 

00205 

00206 
00207 
00213 

002 I H 
0C215 
002 I 7 
002 20 
00221 
00222 
002 ZS 
002 27 

00230 

00231 
002 3 I 
00231 
002 31 

00233 

00234 
0D23S 
00 23 6 

00240 

00241 

00242 
0024 3 
00244 

0024 5 
00 24 6 

0025 0 

00251 

00252 
0025 3 
0025 4 
00254 
00254 
00254 
0025 5 
00257 


(Rt6l ) 
(Rt63) 
tRl66 J 


37 ♦ 


IF 

IR16B) .LT. 

38* 


IF 

(R169) .LT. 

39 7 


IF 

1R171 ) ,LT. 

HO* 


IF 

1R1741 .LT. 

HI* 


IF 

1 R<75 ) .LT. 

H2* 


IF 

1R176) .LT. 

H3* 


R177)=9n. 



IF 

CRt70) •LTf 



IF 

1R179) rLT. 

Hh* 


IF 

<R too) ,LT* 

H7* 


IF 

iRteu ^LT. 

H8* 


IF 

tR(B2) *UTi 

H9* 


IF 

isteady) go 

50* 


IF 

IRiaq) ,UTf 

5 1* 


IF 

\HiBSl oUT. 

5 2* 


If 

IR (66) 

5 3 * 


IF 

(R{071 fLTt 

5H* 


Rt77)=R187) 

55 * 

20 

continue 

5i* 


If 

IMSTRl 171 .NE 

57* 

25 

Format i///* c 

58* 


TiVOUTaRlZI 

59* • 



IKINKS+D.LT 

60* 


RR6 

= R(6) 

6 1* 


RR7 

= R17) 

62* 


R(83)=0, 


.0001) R(6l)=30. 
♦0001) R(63)a70« 

. I ) R ( 66 > «65Q » 

.01) R{6B)=,9 • 

.1) Rr69)“39.0 
1 .E»20J Rl7i )=13.0 
.0001) Rt74j=4.5 
I .E-^4 J R (75 J = 1 «D 
.0001 ) R(76)=24, " 

iPll Rt78 )=.85*19«5 
.^ODl ) R(79 )=c8 
.0001 ) R(8D) = ) .0 ■ 
.0)1 Rt8l l°46»0 
.0001) R( 82) a 1,0 
TO Zo 

.0001 ) RtB4 )=10, •* ““ 
. I > R<B5)-|70» 

.0001) R(86)=1Q. 
.0001) R(07)=B0. 


CHECKOUT OF SHOWEr»/> 


TW0UT“»5*1R177)+r(5i ) } 


Do 30 La) ,19 
R(L)=A(l) 

R<3)-A(4) 

DTH-DTImE/3600. " : 

If |A(ii ,gt. i.e-5) go to 33 

NO AIR FLOO ~ assume SHOWER NOT IN USE 

K1NKS+ 1)0-1 
R 167 )=0» 

R(70)=0. 

IF I .nOT.STEAOV) R(77)aR{87) “ 

Call qsurr 

DUM=K 151 ) +460* • 

DUH2sR(57)+460, ' 

GR A0=. I 71 4E-8*R 158 ) • 1 DUH*DUH + DUH2« 0UM2 ) • 1 DUH+0UH2} 
GfflaR 155 ] +GRAD+R16 1 ) 

DUH = IR 154 ) ■»R 155 )+R 157 ) «GRA0+R 1 60 ) »R 1 6 1 ) ) /GW 
IF ISTEODy) GO TO 32 

R151 )=0UH+)R<5) )-DUH) «EXPl-GW/Rt84) *OTH) • 

return 
R 151 )=DuM 
return 

LPASSaO ^ • - • • • 

METABOLIC C02 AND 02 GENERATIOn/USAGE RATES 

IF 1NPF.LT.2) GO TO 92 

R10=RI10) 


“SH0WR034 
SH0WR035 
SH0vvRn36 
SH0-ARC37 
SHOW 4038 
SHOVSR039 
SMOWR040 
SHOV.RO‘1 1 
SH06Ro'<2 
SH0WHn'l3 
SM0ftRr'-!4 
SM0i*.R(l45 
SP0.VWO46 
SM0.'.Rri47 
SH0WR04 8 
SH0V.RC49 
SHQiv^n^n 

SM0r.RnS2 

SM0^\f\r*53 

SHOWRnSS 

5M0v;RgS6 

SHOWRgS? 

SMO^Rr*-!? 

5H0V;Rn6n 

I 

SH0V,R0^2 

Sho 

SMO^ 

5H0A«0^5 
SHOftROiSA 
5M0»*,R0^7 
SMO?.ROAR 
5M0V R0 6 9 
SM0V-R070 
SMOV.Rn? I 
SH0’ARC72 
SM0.VRn73 
SH0APO7M 
SH0WRO75 
SH0V.R076 
SH0V^Rf177 
«>M0v.Pn7n 
SM0V.RC79 

SHOWRnrjQ 

SMOV Rnn I 
SHO**< RnR2 
SHH? RpR3 
SHOWRnRM 
SH0v.*RgR5 

SH0V.RP06 
ShOWRGR? 
SHOWRQflB 
SI^OwRnG? 
SMOwRq90 
SHO’ARO*? I 


002i0 
002 ti 
D0263 
03264 
032 6 S 
03 266 • 

002 6 7 
00267 
03267 

30 2 67 
03270 
D0272 
D0273 

.00 27 4 ' 
0 0275 

03 27 6 
00 2 77 
003 00 
03301 

-20302 
00 3 03 
OD303- 
00333 
„0D-3Q3 
’003:04 

0 0336 

0 0307 
3 0310 
003 I I 
.033 12 
033)3 
003 )4 
003)5 
03 3)6 

0031 7 
003)7 
003 17 
003 20 
0032) 
00 32 2 
00323 
03 3 24 
03325 


920 

730 
94 o 
95* 
96* 

— 9 7 0 . 

... 96 » 

9 9» 

1 D0» 
“ 10.1 e 
J02>» 
103* 
1:04* 

— JOS* 
106’ 
107* 

I Oa»: 

— 109*, 

I I DO 
tV I 1 I * 

1 1 2* 
“ I 1 3.0 ■ 
114 * 


^ IN SHO//EI? STA1,L 

IF r.NOT.STEOOY) GO TO 50 
R( 1 2 1 =R{ )2>+S(67) 

ysrG02 = R I 1 2 ) / ) R { 5 ) *R ( 6 ) ) *R < 69 1 *RhOA 
~'R ( 72 1 =WC02o35, 1 1 0 ) 4 6 0. +R( 2 1) /R (69 J /2»7aS 
GO TO 70 

5 0 iVGOasR t 72 ) «2 .703*R U91/35, 1 I / ( 4 6 D . +R ( 2 ) ) 
OUM= (R ( S 1 *R ( 6 1 ) /R ( 69 ) /RflOA • 

“■'OuM2={R{)2)+R(67n/DUH " ' ~ 

7/CD2=CIUH2+ t«C0 2-D0M2 ) <»EXP(-DUH»DTH) 

R ( 7 2 ) = A C 02 • 35 . I J * ( 4 6 0 . + R , 2 ) ) / R ( 6 9 ) / 2 »7 8 5 
R< 12) =rtC02*OUM 

IN SHOWER STaLU 

TO IF (.NOT.STEOOY) *G0 TO 00 

- R t 1 0) = R ( J 0 ) ~ R ( 7 0 » •*' • - ' ■ — 

WOXY = RnO)/(R(S)+RUM*R(6 9)*RHOA 
R I 7 3 ) »«0 X Y » 4 8 . 2 9 * ( •» 6 0 . + R I 2 ) ) / R ( 6 9 ) / 1 4 4 , 

GO TO 90 

3 0- il b X Y~ R I 73 1 « I 4 4 . * R ( 6 9 ) / 4 0 .2 9/(46 0V+ R f 2 ) )— 
0UH2=lR()0)“R)70l I/OUH 
«0Xy = DUH2-f ( yiOX Y-DUM2) *£XP(-DO-“s oTH) 

R ( 7 3 ) = «o X Y » 4 8. 2 9* ( 4 6 0 J *R t 2 ) ) / R I 6 9 ) / J 4 4 , 

~ R ( 1 0 ) = fVOX Y » 0UM • -r — r — 

?0 R(3)-«(5) *R(12)-R|2 *RUO)-RIO 


03326 

13.64 


00330 

137 0 


0 0132 

13:8* 


00333 - 

-‘139* ■ 


00333 

140* 

c 

003:34 ; ■ 

1410 

9 ^ 

0 033:3::;..: 

_ I I!2“ 


0033 6 

143* 


03337 

1440 

'. ■; 1 

00:3 4 0 

14 So 


5034I,_ 



00343 

— ■ I 470 — 

■ . ' .i 

00344 

1 4B» 


00345 

149* 

: '■ '.f; ' V7 1 


92- epAA 
RhOA 
Vise 

XKAA 
FJRS 
: l-»K( 

'^TF ( 

' * Fl 

il6i 


KCPA--— - ■ ^ — — — 

A-RHO A 
AA=V) SCA 
«.XKA 

T-. FALSE:* 

H*'S+1) . : 

t BO ) . (.Til i E" 6 ■ > A N D^“TTN tTfr~* 0 RT~T B rfFiTfi T rr.E^gTAN 0‘iX7N E'i O')’ 1 
K5T=.TRUE. 

♦NOTVfIRSTI GO TO 94 

Rl5)*P5AT(T«0UT)»,99/Rr4l'»YyTHC0N/R(9) 

A )7) +B ( I ) -RR6 + A ( 6 ) — 

MIX AIR and WATER 
I NU E ' ■ 

= A( 1 )+B( 1) 

= A (-2 :). , . V ^ 

-:A|6 ) ■ ■ : 

=A|7)+B( I ) 

R<7».UT. I.Ef6) 60 TO 96 

«R { 5) »R { 8 ) ’TftOUT'^ +RR 6 »HG { TWOUT )~+RR7»HF TTn’OUTT — 

HBALNct HMiXiR »NSTR,NGrL i»VLCONO) 

P R O P ( RID > NP F , NP FT ( J I , CP A i WT M A A , R H 0 A » V I 5 C A A » X K A A ) 


SH0WR092 
SriOA4 39 3 • 
5K06S09 4 
ShD«RD95 
5 ri 0 (I 4 0 9 6 

- 5H0/.-4O9 7 • 
Srt0AR098 
SHOaR099 
SHOASlOO 

- SHOiVS I 0 J- 
SHO.YR 1 02 
SHOAR) 03 
SriOAR 1 04 

“•SH0AR105' 
SHOnR) 06 
5K0 AS I 07 
S H 0 A R I 0 8 
" SHOAR) 09 
SHOAR 1 10 
SHOAR I 1 1 
SHOAR) )2 
■SHOAR) )3‘ 
5 H 3 A R 1 1 4 
SHDAR) 15 
SHOAR) 1 6 
• SHOAR) 17 
SHOAR 1 1 8 
SHOAR 1 19 
SHOT/ R 1 2 0 
■SHOAR 1 2 1 ' 
SHOAR 122 
ShOARI 23 
SHOAR 124 
SH0ffRI25 ■ 
SHOAR 126 
SH0AR127 
SHOARl 28 
SHDARl 29 
SHOARl 30 
5 H 0 A R I 3 1 
ShOAR I 32 
SH0AR133 
SH0AR13S 
SHOAR) 35’ 
SHOAR 136 
SHOAR 1 37 
SH0f<R)33 
■ SHOAR I 39' 
SnOAR 140 
SHOARlHl 
SHOAR 1 42 
SHOA.R 1 43 ■ 
SHOftRl 44 
SHOAR 145 
SHOARl 46 
-SHOAR I 47' 
SHOAR 143 
SH0AR149 


14Q2T ___ _ 




0034 6"“ 

iSo* 



00346 

ISi* 

C 


D03 4 6 

1S2« 

c 


0035Q 

153* 


lOQ 

0C350 " 

15 4 » 



00 352 

15 5 • 



0035 3 

156* 



00354 

1 57 * 



003S5 r 

150 * 

•• , - ■ 


003 55 

15911 



□ 035 6 

160* 


110 

003 5; 

16 I * 



00360 ' 

1:62* 



003 61 

1 6 3* 



0036 2 

164* 



003 6 3 

16 5** 



00364 

16 6 * 



0036 4 

167* 

c 


0036 4 

160* 

G 


OD364 

169* 

e 


00365 ‘ 

170* 


i 3 3 

0 0366 

17 1* 



0 0367 

172* 



003 7 0 

1 73 * 



0037 J 

174 ^1 



00372 

175* 



0 0373 

17 6* 



00375 

17 7* 



0D3 76 

178* 



003 77 

i79'^‘ 


135 

004 03 

10O^ 



00403 ; 

i 8 1 * 



DO 40 4 

182* 



00 4 05 

183* 


134 

□ 0406 

184* 



□ 0 4 07 

185* 



00410 

106* 



□ 04 11 

107* 



□ 0 41 3 

108* 



□ 041 4 

189* 


136 

00415^ 

190* 



00 4 16 

19 1" 



00417 

1 9 2 * 



004 J 7 

1 *r 3 - 

■ t 


004 1 7 

1 94 a. 

c 


004 17 

i 75* 

t 


004 20 

19 6* 


15D 

00 421 

197* 



00421 " 


\ c 


□ □4 2 1 

199^' 



00423 ; 

2no-?' 



CQ424 

3n 1 *• 



0D426 

20 2 * 



004 27 

20 3* 



00430 

2C4* 



00431 

2 ns * 



00432 ' 

206* 



00433 

207 * 




FLUID conductance to, AND EVAPORATION FROH, OCCUPANT AND viAllS 


C0H131NED AIR/V/ATER FLOW 
G5K IN=,5*R ( I ) »CPA • 

GWALL-GSKIN „ . . . 

TWlNa( A« I ) »A U)*CPAA+B 1 1 ) *B (2) ®CPB ) / ( A( I ) 'ePAA +Bt 1 ) *CPB) _ 

GOr TO 133 - - — 

AIR FLOW ONLY - CONVEcTiON COEFFICIENTS 
G5KIN-HC*Rt70} 

riWALL=HC»RtBl ) _ ' . ' . 

TvMN=R(2) “■ 

PW1N=R( H I / « I »+R(5S/R{61 *V/TmCON/R (9) ) 

Rl=R( 1 J 

R2 = R(2) • .. 

R6-R16.) , , 

GET cO*iPUTING TlHE INC'^EMENT and number OF PASSES 

gall CSURR - - -- _ 

DUH=R (5ir+R60. 

DUH2«R(77J+H60, ■ 

GRAOn^ 17 IAL-R«R (71 J • ( 0UM*DUH+DUH2»DUH2 ) • lOUH+iDUM2j 

GlV = H(52)+R(7=n+(;RAD + 6WALL ' ' 

<»SK=*R t 7R) ■^G'(AD^•GSK^N 

If ( •NOT.STEDOY j GO TO 135 

X51s*‘l/GW . 

X77=»R/GSK : ■ 

IF (LPASS.GT.B) 60 TO 150 

IF I »N0T.STEDDY1 GO TO l3R . 

NTYME=25 

GO TO 150 ^ . 

L5KIM-.B3«R{fl51/3. 

C,VALL=R(8‘n . , 

DTYME-AHim ( i‘l«CSKIN/GSK I .R»CWALL/GW, DTHl 

D0H*Rt86)/36Ca» — ^ — 

IF (FIRST) 0UM=0UH/3. 

DTYMEaAHINl (OTV mE» DUM) . - 
NtYHE-IF 1X(0TH/DTYHE+.99) 

DTYME=0TH/FL0AT (NfYME ) — - - — -■ r-—- — 

X51=0TYH£/CvVALL 

X77=DTYHE/CSK1N . 

BEGIN THERHAL/EVAPORATION ITERATIONS HERE”~ - - 

LPASS-LPASS+l • „ 

IF I B 1 1 ) ,GT . 1 .E-&1 GO TO iBO ^ 

- evaporation rate 

P«lOUT=R(Bfl ) 

IF (K(MK5>n •LE,C) PW0UT=PSATtTW0UTl*»9S _ _ 

twinf=.s*(twin+twout) • ■ ~ 

PW1NF:=»5* (PWIN+PWOUT) .. 

TtVlNF=AMAXl (TWINFjTSATlpWlNF) ) 

0lFF®Rt80)» t (RAB* + TwINF)/537* )**1.7B *I'I>7/R(‘I) 

sc»viscaa/bhoa/oiff " ■ 

PR3CPA*VISCAA/XKAA 


0DH3H 
03 ‘*3 5 
DQH3 5 
03H37 
03*140 

■ 0 04 HO 
034 41 
03442 
00 4 4 3 
njH 4 4 
034 4 5 
034 4 7 
304 5 0 

■ 034 5 V 
03452 

00453 

00454 

00455 


■> 

t 

ro 


034 5 6 
0 3.4 7 5 

034 7 5 
D3475‘ 

004 75 
00476 
00? 12 
cosiz" 

005 12 

035 12 
005 12 
335 12 ■ 
0 0512 
00513 
0 0514 
00515, 
00 5 1 6 
00=20 
00^2 I 

005 22 
03523 , 
005 2 4 
00 52 5 

00526 
DO 52 7 
005 2 7 

00527 
00530 
00531 ^ 

00533' 
005 3 4 
00535 
005 3 6 
00537 
00543 

0054 1 
0254 2 
■ 00544' 
00 54 5 
00546 


20 B 0 

- 209> - 
2 lO» 

2 i 1 » 

21 2 « 
-2 13»-- 

214 » 
2150 

21 to 

- 2 1 7 0 

2 I Bo 
2 190 
220 “ 
“ 2210 - 

22 2 0 
223» 
22 4 0 

- 225“’ 
22 6 0 

22 7 o 
22 BO 

■" 2H7»~ 
2300 
2310 

23 2 0 
-- 233o - 

2 3 4 « 

2 35» 
23 6 “ 

“ 23 7,0 - 
2 3 3“ 

23 9 • 

2 4 0“ 

— 2 H 1 »- 
2420 
2 4 3“ 
2440 
• 2 4 5 • - 
246* 
2470 

24 B o 
2490 
250“ 

■” 25 -1 o '* 
2 5 2 * 
253“ 
2540 

■255*" 
2 5 6* 
257* 

25 0 0 

" 259“ 
26qo 
261 * 
2620 
"-26 3“' 
264 0 
265“ 


i 




HD = HC/CPA/RHOAo { PR/5C ) »» »67 
••HD = H0«,43“R175> . - - 

0UH=P5AT ( R 151 1 1 
D'jH2 = PSAT(Ri(77) I 


SH0fi42OB 
5H0ftH209 
5H0«3210 
5H0«421 I 


160 


340 


E V AP = • R ra 1 R { B 2 1 f ® 5 ♦ ^ l_^4 » • 1 DOM/ (46D«*-R( 5l 1 )i»PWINF/ ( 4 6D »*T«| RFSHD A 4 2 | 2 

EVAPSKoHD»R( 7Bl/B5.B*l44»“ tOUMZ/ 1460*-^Rt77 1 » -P .V J Mp/ 1 460 » ■‘•Tft 1 NF M j- 

EVAP-EVAPA + EV APSK o(r,.i SH0>i_21 = 

PVApoRl 41/ 1 1 .t-R (5) “ATHGON/ ( R 6 »EVAP | /Rl9l » ; 

OuM = PSAT { T AOUT » « • P‘>5 

IF (PVAP.LE.OUMJ 60 TO 160^ . 

EVApoS ( 5 } “OUM/ 1 R I 4 1 -DUM 1 « ATMCON/R t 9 I " R^> 

P 5 K 1 N = E V APSK * I 042 • “E V AP/ 1 £VAPW*EVAPSK } ; 

0«ALLsEVAPfl o 1042.“EvAP/1EVAPW.+ EVAP5K)‘" 

R ( 6 ) bR6 «-EVAP 

R< I )-Rta)*R(61 ^ « 

iRtTE^ul34 0»^olFF,PR,5C.HD 

FORmA^I^’oIf^ SCO*, 512.5, * HD= * , G I 2 , 5/|rjo AR ||^ 

° pS- 1 NF«= * . 6 1 2.5 ! • TiV 1 NF»‘ I 6 12. 5 , ♦ EV AP«= ’ » 6 1 2* 5 , i| EV APS_^_* SH3 A^228 

5, V PVaP = V.G12o5,_ * T«IN«*,G12.5, 

“ ' £ ' I » 4 I ^ ? P ' _ . _ . . . ~ ~ r. . r . » F. unil T 5 ^ 0 A S 2 3 1 


5H0A42 1 6 

SH0.V42I7 

SHOWRZ I 6 

54064219 

SHOrt4220 

SH0A422 1 • 

5H0«4222 

S rt 0 f< 42 2 3 

5riOA4Z24 

S40A3225' 

SriOnR22t 


0 , . ... , . 

■* G 1 2. 5 , ♦ P V aP = ’ I G I 2.5 

“ * R(5n = *,Gi2.^» ’ ■' 

AR t TE ■“ 


iljBHB) lCPAS5iEVAPtDU«>R( 1 ) i T5 ) , R I 6 ) i R6 j R R 6 » R { & I ) >P^^0UT 
KPA55-^i 13| ’ £ V AP« ^ I G 1 2 « 5 I V f 

ll=»,GlloSi « ^Ri5)=^’iGl2.5i = f |G12^5^ r R6a»,5U,3| 

,G12*5» : . 


345 F ORMAT 


t 

« f 

o t 


C 

-C" 

c 


R( . 

RR6 
RlSl )s» , 


G i 2 ; 5 , ♦ P ft O U T = * » G I 2 » 5 1 

^ T HE R M At.- B A U A M C E 


180 


230 
26 0 


RBURtSl 1 

• 0 UM=(R (74HGRAD) ' «' tR77*'RSl )— — ~ " 
IF tStll.LT. l*e-6rG0 TO 230 . 

H77 = R ( 1 1 * CpA » t 7 rt I N“R7 7 1 * • 5 " t RR 6 «A { 6 I } • 1 Q42 • * *7 
H5 1 = R I 1 1 *CP A » I TW I N**R5 1 1 « *5 -{ RR 6 -A ( 6 ) j • 1 042. “ . 3 

GO T,0 260 ■ ■ . ■ 

H51=GflALU»tTWlNF"R51)-QRAUU- 
H77-GSK INo (TRINF-B77 I-QSXIN 
CONTIMUE 


C 

c 


R{51 !=RSlHDUH*Rt531+R« 76|“3.4l2+H5l ) «X5l 
R ( 77 J “R77 + t R ( 66 ) ~pUH.tH77 I 


3 00 
305 


KPA5S=Q 
IF IB 1 11 


^3 ID, 
320 


2 1 ( GnAUG» 1 RS 1 -TRI NF T+65K I'NOTRVTTSTWTTin'RrTlTCPA 

KtNKS + H = l ■ 

GO TO 320 \ 

R ( 2 1 = . 50 ( R { 7 7 ) t;R.{ 5;j >.J. .. — 

K(MKS+1T =0 
0UM-PSAT(R12> 1 

6sAT=Rt5 ) oatM 0N/RI91 oDyM/ (Rt41-DUH) 

I F 1 R t 6 1 . LE , .V5 T 1 G O TO 325 

KPASS«i<PA5S+r’ '• 

DUM2*R«61 

R(6J=.VSAT 


SH064232 

SHOAR233 ■ 

54064234 

SH0A4235 

Srt06R23t 

5M064237 ' 

SH0AS233 

5H0A4239 

SH064240 

SH3AR241 ' 

SH0AR242 

SH06R243 

SH0«R24 4 

SH0»'iR245" 

SHDA4246 

5H064247 

SH0AS243 

S40AR249 
5.4064250 
SHOhSZSr 
SH06R252 
54064253 
540.VR254 
5H0AR255 
SH0A4256 
54064257 
SHO/iR 25B 
S H u ^ R 2 s 9 
SH0AR263 
SH0AR261 
SH0AR262 
^5H0v*R2i3' 
SH0AR26R 
5rtOrtR265 


ro 

1 


07 

'-J 


I 

-4\3- 


"•nr 


tn 


0 

1 


07 

I 

cn 







ro 

► 





■i? 

!ii 


005H7' 

0055 0 
00552 
0055 3 
DD55S 
00556 
00560 
005 61 
00562 
D056M 
005 65 

005 6 6 
00567 

00570 

00571 
00573 
0060 3 
7506 03 

noAoH 

00605 

006 07 
006 1 1 
006 13 
00611 
00615 
00617 
006 2 0 
00621 

0062 3 
00637 
00637 

0063 7 
00610 
0065 0 
0065 0 

00651 

00652 


266* 
26 7* 

26 a* 

26 V « 
270<' ■ 
271 » 

27 2* 
273* 
271* ■ 
275* 
27 6* 

2 77 • 
27 0 « 

27 7 9 

2 a 0 • 

2Bl* 
282 * 
283« 
201* 
285* 
286* 

28 7* 
208* 

2 8 V • 
ZVO* 

29 I* 
292« 
293 » 
291* 
295* 
296* 
29 7 « 
2989 
299« 
300* 
301 * 
302* 


Dun 

( 1 


•315 

325 


355 


•R{6)=Rt6l **995 " 

IF (K(NK5+1J »CQ.O) R(7)=R{75 + PUM2-R(6) 

R(1 »=Rt51+IH6)+R(71 

If ISTEDDY) 50 TO 3l5 _ , 

duh=evapw/(e:vai>sk+€vapw) - - 

IF (Bll ).GT»1 •C-6) 0UHo,3 , ■ , 

R(51 19R (51 1+ I DUH2-R (6 > )*D 10*12 • /GW ALU * 

R (77 )=R (77 ) + (0UM2-R (6 ) 1 *DtyHE*ID12«/CWALL • 

IF (KPASSVLE.IOI GO TO 305 
T;>;f!UT = R(2) 

R( 8 U JsRiSl/n •+R(51 *iWTHC0K/R{6)/R(9) 1 
RR6=R(6) . . 

RR7=R(7 I 

F1RST=,FALSE. „ ^ 

IF (K(NK5+1)»6T.0 •dr. NSTR ( 17) »EQrO) 60 TO 326 
write Ui35S) LPAS5',R( 1 1 iR( 5|»R16) ,R(7) »R(5l ) 

F0RI1AT (• LPAS5=*il3i ’ R ( 1 1 = ’ » C 1 2 . 5 * R(51 = »t6l2*S 


,612,5, » R(7) 


TO 

91 


,• ,012»5» 

327 


< R 151 1»» ,612.5) 


3 27 


>005 >®0 TO 91 


• » R(6)=*» 

326 CONTINUE / 

IF ILPASS.GE.NTyMC) GO 
IF f .NOT.STEDDY) GO TO 
IF <ADS(R{Sl)-RSl) »GT 

continue • 

R( n=R(5)+Ri6i+R(7) 

IF (Bill .LT. l.E~6) R(83)aRt6)“A(6) 

CPA=CPAA 

RHOAnRHOAA „ 

If cnstr( 17J .Eo.oi return 

WR I TE ( 6 ,3331 VIC02 »WOXY , GSk IN, GWALL » CSK f N , CWAUL, TWOUT , 6R AD , 
FORMAT {/» ttC02=»,6l2.5, t WOX Y = • ,6 1 2 ,5 , ♦ GSK iN® f , G1 2 ,5 , 

• GWAul^'.GIR.S, ’ CSKIN=» ,G12.S , » CWAUL«»iG12*5, 


330 


• TW0UT = ',612,5/ • 6KAD=*, 612,5, t Gtt3*,6l2,5, » GSK« * , 61 2 ,5 ) 


K » I UUV J ' I « 1 A # 3 / ' V I £. f • 

write ( 6 » 335 >LPAS 5 ,DTYHE,QSKIN,QWALL,K 51 ,H 77 ' 

335 Format (IH+, 53X» • LPASS=*»I3,_» DTVMEf * ,G1Z.5, ♦ 


'/ « qVSALL»»,6lZ,5,» 
RETURN 
END • 


H51-» , 


GI2.5, ♦ H77b. ,612*5) 


Q5K I N» 


5H0WR?66 

SH0'AR267 

SH0WR760 

SH0)‘-R27,9 

■ ' 5H0WR270 

SH0WR27I 
5 HOAR 2 72 

5H0A'R?73 

: • SH0V;R271 

SH0WR275 
SH0WR276 

• SM0WH277 

SH0V.R278 

SM0y,H779 

SHOWR280 

5HCWR201 

SHOH 1 R 2 I 2 
SH0WI??R3 
SH0AR281 
5H0ViR7l5 
SH0l\R786 
SH0WR2n7 
SHOWR?an 
SH0WR289 
SH0AR290 
SHOvvR?<»l 
SM0AR792 
SHOW H7 9 3 
GWtGSX SH0AR291 
SHmvR295 
SH0WR296 
SH0’.VR297 
SH0WR298 
* , 6 l2«5SH0WR299 
SH0rR300 
5H0WR3OI 

■" SHOWR 3 O 2 


O 

in:> 


00 ’•" 

-cn 


. ..ro 


END of compilation; 


NO DIA6N03T ICS* 
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■ 3 ' . F 0 R •■-WAS D;Rt .» |V As 0 R'f " _ — — ^ _ 

Tulc^^hio?? V exec n level zba -(execb level ei2oiddioa} 

THIS compilation WAS DONE Oil 23 SEP 7S AT 0'J;27:52 *«uiuuiu » 

__^5tlBR0UT 1 N£ AASb^T: ENTRY POINT Qn2&RS " .:. ... •■'■'■ 

storage used? COOEllJ 0026521 OATA<D> 0002711 BLANK CDMM0N12J OOODDD 

C O MHO H" BLOC KS'J — — "■ : . . ; ' . . — — 

0303 COM? 0001 1 7 " ' ' * ■ 

0004 RARRA Y OCOIS'*' 

00 35 — KANOY ■ 00030L — 1"— ^ — — 

o:D 6 Ml sc 000336 

C3C7 PROPTY 001302 

0010 SOURCE 000102 


external references (Block, name) 

■ coll— •■HG' ... 

. .031'2 : ' HF. 

dOli: - hpALNC ■ 

03 H PROP > 

- 0015- — 3SURR — ■ — 

. 0016 PSAT 

001 7 TSAT 
0020 NAOUS ; 

■ 0321 NI023 ' — r-- — 

0322 SORT 

0323 NEXP6S 

0324 ■: NERR2S 

- 0025 NERH3S ' — — — — 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0001 

Dooi:- 

0301 

000 I 

0001 
0001 •• 
OSO 1 
ODOl 

05 01 

obol 

0001 

0007 

COOT 

OOOH 

0006 : 
OODO 
0 012 

■0004- 


003622 
001 60S 

00 0 745 

002031 
002 164 
002271 

002405 
0 02473. 
020437 

001 1 zs 

00 I 33 3 
OOQQDl 
000 I R 6 
000154 
033300 
000037 
030000 
ODOOOO • 


IDL 

1 3 2L 

1 7L 
205L 

2 3DL , 
29 OL — ' 
330L 

36 OL 

4L 

70L 

95U 

CP 

CPC02 
CSTART' 
DT IME 
GAIR 
Hr ] 

IMAXR— 


0001 
OOD l - 
0001 
DOOQ 
0001 
OODl" 
03 01 
0301 
0001 
0001 " 
DOOl 
0010 
000 7 
•ODOQ 1 
OOOH I 
0007 
00 11 1 
•0300"- 


00 1 4 *1 3 
00 1666 
00 1743 
D00a|7 
002170 
002307 
002122 
002SO6 
002534 
OOI20S 
001 336 
DO 00 4 6 
000147 
000337 
000150 

000152 

ODOOBQ 

'0002S5- 


11 OL 
14DL — 

17oL 
205 OF 
2B5L 

2 93L — 

3 Hot 
3 65L 
400L 

7 5L- — 
77 L 
CP A 
CPDIL 
DH 

DTYHE 
G AM GAS 
HG 

INJPS— 


OODl 

'ooor' 

000 I 

0001 
0 001 
coo or 
0001 
cool 
.0001 

■ 0001 ' 
0010 
DOl 0 
0007 
■OODO' 
0000 
0 00 6 
000 0 


001 456, 

000732 

000753 

SSI191 

'000045 
002432 
002507 
0026 I 1 
00 1223 
000 D 00 
000047 
OOOISO 
000034 
000004 
DO ODD 1 
000014 
ODOOOO- 


1 IHL 
1 5L ■ — 
2DL 

1121; 
30F — 
34 3 L 
37oL 
4 Sol 
9DL — 
A 

CPB 

CPoxy 

OIFF-- 

OUM 

GRAV 

HM IX 

K— — 



23 SEP 25 



ODO l 001501 130L ODD 1 00 1 547 13 1 L 


DOOl 001710 1S3L-- 

DODl 002006 200U. 

OODl 0D2I37 263L 

OODl 002245 2BSL 

• DOOl — 000640 307G — 

0001 002443 35QL 

OODl 002526 3?2L 

0001 001062 5CL 

- DOOl 001230 92L 

0010 R 000323 B 

0007 000144 CPCONL 

0007 000151 CPTC 


DDOi *' 

^001725 

160L 

—70- 

OODO 

ODOm 

204of 

fD 

DOOl 

002153 

26Sl 

—3* 

OODl 

032261 

289l 

in 

0001 • 

"032321 

3 1 DL 

— 0— 

DOOl 

D02H65 

3SbL 

C- 

0 001 

DD2S32 

3t5L 

*— * 

OODl 

000573 

6L 

CD 

□ ODl' 

’ DO 131 6 

93L 

— 1— 

0000 R 000023 

C 

tr-* 

Cl 

0007 

000145 

CPCONV 

i 

0 007 

0 Du u D 0 

CPO 



0003— 000000 05 — — GOOD R DODOOS 3TH ^ — 

0003 R DD0O45 0yM2 OOOO R 003032 EVAP 

0003 R DDDD13 HC 0000 R 000036 HO 

0010 000050 lAl 0010 000051 131 

0006— OOOOD2“SFLSY5- -0006 000003- ROOTPT 


I OOOOH2 
I 000024 
0000 1 6 
000020 
i 000024 
030027 
000033 
000054 
000046 
I 000056 
000025 
R 00002 1 
R 00 00 01 
R 000073 
.000327 
0000 3 3 
R 000030 
R 000075 
R 000033 
- 000076 
000632 
000777 


KPASS 
UP ASS 

maxsLp 

NA I • 

MCPL 

NK 

NLFL 
ftPF S ■ — 
NS 

NSTR 
PGH I N 
RftlN — 
S 

Rt^OB 

START 

THAX '• 

TAINF 

Vises 

VREU 

WTMA 

ATHTC 

XKGA5 


0006 
00 00 
0006 
00:1 O' 
0006 
0003 
0003 
0010 
0003 
00 0 3;: 
0006 
0003 
00 00 
0007 
0006 
00 06 
0000 
0007 
0 000 
0006 - 
0007 
0007: 


000004 
I 000002 
:’ 0 0 0 01 7 
000053: 
000020 
000330 
000034 
• 0OD05S 
T 000047 
000 I DO 
0 3002 6 
R 000027 
R 000312 
0 03153: 
U 000030 
000034 
R 000026 
000317 
R 003040 

•" DO 0035- 
033464 

001 ODD 


KPDROp 

0006 

000005 

KSYPaS 

0 006 


□00006 

XTRANS 

0000 

1 

000003 

L 

lphase 

00 36 

DO 000 7 

LPSUM 

0 00 6 


DOOOl 4 

MAX Cl 

00 06 


00001 5 

MaXLP 

MAXSSI 

CO 06 

000024 

H I NS S I 

0 00 3 

I 

000017 

M 

0010 


D00D52 

na 

NS — 

— 0003 - 

000021 

NB 1 • 

■— 0 00 3 


000022 

NC -‘'- 

— 0303 


000323 

NCA5 

NCOHPS 

0DC6 I 

DO 0021 

NE.VDT: 

0003 


000025 

,NEXT 

0003 


000326 

NEXV 

NK£X 

0003 I 

000031 

NKS 

0003 


000032 

viKT 

0006 


003022 

NLAST 

NP 

ODO6 

000023 

NPASPD 

0003 

I 

00003S 

npaSS 

0003 

1 

000036 

NPF 

NpFST*^ — - 

~O003 — 

000037 

NPFT 

0300 

1 

OOOOOl 

NPHA5 E"*' 

— 0003 


D00C45 

N j 

NSF 

ODIO 

00 0063 

NSFS 

0010 


000064 

NSP5T 

0003 

1 

000050 

NSFT 

NSUBR 

003 0 1 

000022 

ntyme 

0003 


000101 

NV 

0003 


000102 

NvT 


Pi.HlN 

PWI:Nr.“ 

RE 

RriOO 
STEADY 
THIN ■■■ 
TWOOT 
VIS CO 
U 

athax-- 

ATHO : 
XKLJQ 


R 000006 PR 0016 S 000000 PSaT DDOO R 030041 PvA? 

R 000025 PhoOT "-^ 0000 R 0000 I 1 3 E V AP'”' — 0000 R 'OOOOiO g40TOR‘ 

R 000031 RESID 0007 DOOlSH RHO 0010 000072 ShCA 

R 000017 R20 0000 R 000020 R25 0030 R 000035 SC 

L OOOOOO STEODY 0006 R 000031 TIME 0006 000032 T{M£MX 

R 000000 TSAT ■"•■0000 R 000043 TTUS 0003 R 30001 6 TaIN ■ 

DOOOOD V 0007 000320 VI SC 0010 00007 4 V l SCA 

R 000463* VISGAS 0007 OOlOOl VISLIQ 0004 R 000120 VMAX 

R OOOQ15 ALCONO 0000 R 000044 SSaT 0007 003465 ATM 

R- 000077 ATHS — ODD? R" 000630 AT HCON"~‘ 0007 QDD63 I ' ATHOnT 

000634 XK OOlD OODlDO XitA 0010 R OOOIDI XX5 

000633 XKO 0003 000103 Y 


DO I d t 
03103' 
00103 
:00133 
30TD4 
CDT OS ' 
03106 
03106 
00106 
00107 • 
00107 
00107 
30110 
031 10 
03111 
00112 - 
COi I 3 
□ 0113 
D0113 
C-a i I 3 *• 
con 3 

00113 
00113 
eel 13 ■ 


SUBROUTINE WASDRY 

““ C 0 H H ON / e 0 H P / D S 1 I 5 ) i N , M A I , N B 1 f N C , N CA B , N C F U i N EX T , N E X V , N KJ 

1 NXeX ,NKSfNKT,NLFLiNP,NPASSANPF,NPFTU) VNQiNSrNSF>NSFTl61 

2 NSTRli8),NS;U3R»NV,NVT,Yn2l 
common: /SARRAYV I«AXR,R(J) 

-common /KAN0V7 K ' .. ... ...... .. . . 

common /Miscy OTIHE,6RAV,KFl.SYS,KGOTPTiKPOROP,KSYPAS,KTR 

1 LpSUHlB) ,MAXC 1,MAXLP.MAX5UP,HAXSSI ,Nc6HPS,NEA0T,NtAST,N 

2 MINSS I j PGM IN ,PUM I N , STaRT » STEADY . T F ME . T 1 MEM X • TM AX , TH l N . A 


Q0H3 

■ 

C 

00113 

26 0 

C 

00113 

2 7*> 

c 

00M3 

— 2B^ 

C- 

0 0113 

2 9« 

:C . 

00113 

30* 

ty 

0DU3 

3)0 

• c_ 

•*^00113^^ 

^ 3 2 0 — 

“~C 


,XKGAS,XKUIQjVl5I.,l« 

i9> ,CPA ,CP&, 1 Al I IBI ,NA,NB,NPF5,NPFSTX6J , 
MSCA , V 1SC8 I ATMA I ATHB, XXA I XK3 

iGSTART) 1 ■ 1R (BO J , VHAXrV'lR I I 04 rjOTYMn" 


THIS subroutine .MODELS A CUOTHES/OlSMES WASHER, PRYERi OR 

-Washer-dryer COMB I NAT I ON , . ; 

THE following usage PHASES hay BE SELECTED, 

phase 0 - UNIT OFF 
phase 1 - WASH WATER FILL 

phase 2 - wash t;C lRCULATEl~ ^ “ " ~ 

PHASE 3 - SPIN DRY. iYaSH «aTER OUT 
phase 4 - RINSE WATER fill 
PHASE 5 -RINSE (CIRCULATE) 

-----■-•PHASE 6 -"SPIN dry. RINSE WATER ”OUT“" — — — 

PHASE: 7 - DRY 

the routine may ALSO Be USED FOR stationary rack-drying 
OF TOWElS/WASHCLOTHS I.N EITHER PHASE 0 OR 7, : 


WASOROQI 

- WASDRD02' 

WAS0R0O3 
WASDR004 
A A 5 0 R OD 5 
• <VASDR006 
WAS0RD07 
tUSDROCB 
WaSDRDOV 
■y.ASDROI 0 
WASD40 I 1 

WASD43IZ 
AASaRQ 13 
ft AS DR 0 1 H 

WA50R015 

■ «ASDR016 
AA 5 DROI 7 
WASDRO I 8 
fiASDRDl9 

■ ftASDROEO 
ft A SDR 021 
.VASDR022 
WSSOR023 

- A ASOR02 H ‘ 
WAS0R025 
WASDR326 
WA5DR027 

"WASOROEB ■ 

■ ftA50SD29 
WASDS033 
TMSD.R03 1 
■«AS0R032' 




/ 



• d. 



-'V 

" V ool 18 

33* 



00115 



■ / .9". ' . ’ 

00117 

35* 



00120 

36* 


■ • 1 •* ■i 

00122 

37 » 



00122 

3B * 

c 

■ ‘ ' • * ... • ■ 

00122 

39* 

c 


00122 

9g* 

c 


. 0DI23 

H 14 



00125 

92* 



00127 

934 



1. 00131 

99* 



0013 3 

95 4 



00135 

964 



00137 

974 



OOIH I 

90 4 . 



f 00IM3 

^94 



:>• 

i 

ro 

00 


odihh 

ODI H7 
0D15I 
00153 
00155 
00157 
0016 1 
00163 
□ 0165 
00167 
001 7 I 
00173 


5n« 

514 
52* 
53 4 
5H4 
554 
56 * 
57> 
SB* 
574 : 
60 * 
614 



00175 

6 24 


001 77 

63 4 


00201 

69 f 


00 203 

654 


00205 

6 6 4 


00206 

67 4 

1 . 

002 10 

6 a» 


002 12 

69 4 


00218 

70« 


002 1 6 

7 14 


0022 0 

.- 724 


00222 

734 


002 2 8 

7 94 


00226 

75* 

L:> 

00 2 30 

76 4 


00232 

77* 


00238 

7B* 


00236 

794 


00 28 0 

60* 

r 

0028 1. 

HI 4 

1 ; 

0 C2 83 

82 4 

I ■ ' 

00 28 5 

83* 

L : ' 

00 2 8 7 

894 


00251 

" Bb* 


0025 3 

86 4 


00255 

874 


D0257 

BH* 

r • 

0026 1 

89 4 


00 263 

90* 


57EDPy«STEADY 
IF (NSTR(16).EQ.l) STEDDYa.jRUE, 
IIPHA5E=kINKS+1 ) ■ , . ^ 

IF ( .NOT. STEADY) MPH ASE-1 F I X «.R« 95 ) +. 2 ) 
UPHASE«=NPHASE 


INITIALIZE Y<ASIIER/DRYER DATA 


. LT < 
iUT« 


IF IR(S5) 

IF IHt57) 

IF (RtSO) .LT. 
IF IR(6C .LT 


IF lR(6t 


IF (HPASS .GT.OI GO TO lO 
IF tRISl) .LT. .coot) Ri5l)=7Q. 

IF (Rt5«n .LT. .0001) R(5‘))=7D. 

VCOOl) R<55)=3. 

.CZOll Rt57(=70. 
.0001) Pt50»=I. 

.0001 ) R (60 ja7Qi. 

. . LT . .0201 I R ! 61 J =9;« . 

IF (R(63) .LT, ,rO'5l) H(63j=70*. 

IF IR(6Q) ,LT. .DCOl) R(68)=5D, 

IF (RI7d) ,LT. .coot) R(70)=l5g, . 

IF <RI72) .LT. »0(Wt) R(72)=70. 

IF <R<76) ,LT. ,0001) Rl76ja|2, 

IF <R(77) .LT, ,0001) Rip) = .25 

If CROD .LT. ,0001) R(8lj=e, 

IF (R(82) .LT. ,0001) R{82)=16,1__ 
IF (R(Q3) ,LT. ,0001) R(03)al20, 

IF 111(86) ,LT. .0001) R(86)n.8 * 

If tR(«a) *LT. ,0031) R(88)=1.0 , 

IF (R(98l .LT. .good R(’8) = .0197«L 
IF (R{97) .LT. .0001) R(97)=30, 

If (R(90) .LT. .OOOD R(98)=30, 

IF IRdCBDLT. .0001) R(l05) = l0. 

IF (RIMO.LT. ,0301) R(llO)?6. . 

If (KlNkS+Z) *EQ. 01 KtNKS+2)=l 
K(NKS + 3)=~1 , 

U* INSTR (H ) .GT.n) Go TO 'I 

If {RI66) .LT. , 0001 ) R(66)=8. 

If (R(75) ,LI. .0001) R(75)=,2 

IF (R(7e) .LT.l. E-20) R(Ta)=.OS 
IF (RI79) .LT. ,OOOD R(79)=2RC. 

IF (R(do) .LT. .0001 ) RtflOis^SRa.. 
IF (R(87) *LT, .OtJOD R«S7)«10. 

IF (R(B9) liLT. .0031) R(89) = .'j 
IF (R( ID2) ♦Lt. .0031 ) R ( 102)=S5, 

I F ( R ( 1 P3 ) . LT , ,0031 ) R ( 1 03 1 =55 , 

IF lRnc6).LT. ,0001) R(1Q6)=‘»* 

IF (R(lp7),LT» iOOOl) R(107)=10, 

If (RMC!9),LT. .0301) R(lC9 1-.2 


Go TO 6 
8 Ik (R(66) ,LT. 
IF (R176I .LT 


,3001 )R (66 1=15,2 
.QOOD R{75) = .25 
IF (R 178) .LT • I .E~20) R(78)s.000l 
IF 1R(79) .LT. .nOQD R(79i=90. . 

IF (R(Oe> .LT. ,0001) R(80)=105B7, 

IF (R(B7) .LT. ,.0001) RlOTl^.RB 

IF (R(89 ) .LT. .0031) R109)a.5 

IF 1R{)C2).LT. .0001) R(I02)“15, 

IF iRtloSl.LT. ,0001) R(I03)=15, 

IF lR(lDf.).LT, .QOOD RD0&)=8. 


WASDR033 
WASDR039 
WASDR035 
WASOR036 
WASDR037 
V(ASDR030 
Y/A5DR039 
WaSDRO'IO 
tt'AS0RO9 1 
WaS 0R0'(2 
WASDRnqa 
Vi Asnno'iR 

wasprcrs 

WASDR0*(6 

WaSDR0‘I7 

WA SDRORO , 

WASPRnI? 

lYASpRf’SO 

V(a5DR051 

WASPRnG2 

WASPRD53 

WASDRcS*! 

ff ASrRnGB 

lVASnRnS6 

WA50RC57 

WAS(^R050 

ViASPRnG9 

wasprc-so 

VYASnROAl 
V.'ASr>R06 2 
WAS0RC63 
IVaSPR06«I 
1VAS0RC6S 
•.VASDRC66 
WAsnncA7 
WASnRn^n 
V;aSD*?c69 
WASnRn70 
ViASDRn7l 
V.'aS0R072 
WASr»Rn73 
VYASPR37 9 
\VASnRC75 
WASnR076 
WASPRG77 
WA 5DR07a 
WASPR079 
W ASPRnRQ 
WASOR'"'')! 
WASDRnH2 
WASpSp83 
WASDROR'I 

■ wasprobs 

YJASDRpGt 

WAS0RO87 

WA5PRPR8 

■ WaSORORP 
WASOR090 


’O 


rn- 

OT 


ro 


©IG3HMJ PAGE IS 


a G> 


00 265 

9lW” 



CC267 

9 2* 



002 7 1 

93* 



OC273 

9H * 


6 

002 75 ' 

95* 



00 2 77 

96* 



0P3OI 

97* 


a 

00303 

90 a 



CC305 ' 

99* 


'10 

0030 b 

lob* 

c 


00305 

10 la 

c 


00305 

IG2* 

c 


00 3 06 

103* 


11 

0031 1 

I 0 4 * 



00312 

IDS* 



0031 S 

1 0 6 • 



0D31S 

107* 


12 

0G32D 

lou* 



00321 

1 09« 



00 32 2 

1 10 * 



0032S 

111* ■ 



00325 

1 12* 



00327 

1 13* 



□ 0331 

114. 



003 3 2 ” 

U 5 * 



0033 3 

1 U* 



0033S 

l|7* 


15 

□ 0335 

i 1 13 * 



003 36 

1 19* “ 


17 

003 so 

120 a 



003S 1 

121 a 



003S2 

127* 


20 

003SJ 

123* ” 



003Sb 

1 2 4 * 



0035 1 

125* 


30 

00352 

1 26 a 



00353 

127* 



00354 

1 2U* 



00355 

129* 



00356 

130* 



00357 

I31*- 



00361 

132* 



00362 

133a 



00363 

134* 



00364 

135* 



00365 

1 36* 



00366 

137* 



0036 7 

130« 


50 

00371 

139* ’■ 


*• * ■ 

00373 

ISO* 



C037S 

14 1* 



CD 375 

IS2* 



C03 77 

lS3* 



CPSOJ 

1S4* 



DOS 01 

145* 

c 


CCHOl 

1S6* 

c 


00401 

1S7*~' 

c 

■**■.*/ 

00402 

14 0* 


70 


(NSTrM J .EQ.3J Rn06J=0.”‘" ~ — """ 
(Rtl07J.LT. ,00011 R(t07)“10- 
»RU07)»UT» .0001) R(107)».01 
{ steady ) 60 TO 10 

(R{96 ) »GT. ,0001 ) 60 TO lO " ' ' 

nNHHASE-7) •(NPHASE-R) .NE.O) 60 TO 
tNSTRlH) .EQ, 01 Rt9&l=R(771*Rl66) 
(NSTRm ,E0, I ) RC96)=Rt9‘ll •R(66 J 


continue 

SET ootlet flovirates based 


CYCUE phase 


Do 12 L=1»19 .. 

R(L+19 1 s=Oi „ 

IF lllPHASE.EQ.7 .OR. NSTRtl)«EQ»3) R ( L+1 7 tl. ) 

RtLl=0. ■ 

IF INPHaSE.EO.Z ,0R, NPHASe.'EC.S) R(L)»Alt) ~“ 

ROI^AIH) 

R(22)=B(*n 

IF (STEOOV ,0R. (NPHA5E~31,{NPHA5E-6),NE.0) GO TO 20 

0UN=R(77) ‘ — 

IF INSTRl'tl.EO, U DUM-R(9H| 

IF (NPHA5E.EQ.61 60 TO iS . 

R( I l = <R(IQ21-.DUH*Rt66n /Rtl lOl-Ao, 

RtlA) = RUl.Rt73J ■ -- — — — ■ 

GO TO 17 

RM >=(R{ IQ31-DUM*R(661 ) /R(i lQ)»6a. 

R(16)-R( 1 1'>R(73I»DUH*R(66)/rU03) 

IF (NPF.EQ.OJ 60 TO 20 ' ~ — 

R( 15)=R( 1 1 

R(1 r=R(l5)+Rll6) 

Continue 

IF ( newot .lt.d) return — - 

IF (NSTR<17).NE,0) WRITE (6,30) N 

format {///' COHPONENT NO,* I ISr > CHECKOUT OF WASDRyi/) 
DtH-Dt1I1E/3600, 

R(:92).aO, ~_ 

R(<?3)=0. 

PR=CPB«V ISCB/XKB 
6aIR=B( 1 1 *CPB 

IF (MSTR C 1 1 ,LT.3I GO TO 50 — - 

QHOrORs=0. 

QEVAPsO, , : 

DUN».5‘SQRT(R(07)*R(66) 1 

RE = V>iAX«OUfI*RHO0/V ISCD . . . .. . 

HC-XKB/DUH* .66'l*RE*»i5 •PR...33 
6AiR=l./ (1,/6A!R+1./ {HC»R(07)*R(66n) 

IF (NPHA5E ,EQ, 7) GO TO 7q 

I F * • NOT . S TEDDY 1 R ( 96 1 =R ( 961+ ( A * I 1 -R ( I 1 1 »DTH 

QEVAP»0, . 

ClM0T0R=Rt681 *3,«U2 ^ ' 

IF INPHaSE,EQ,3 .or, NPHASe.EQ, 6) QH0T0R=Rt70)*3»‘H2 
IF (NPHaSE.EQ.OJ QHOTORsD, ... .. 

Go TO 9o . 

INITIAUTZE DRYER EVAPORATION PARAMETERS (NPHA^E«7) 


V/ASDRn91 

«ASDR0'?2 

V,-ASDRd93 

WA5DR09R 

WASDRn9S 

vrASnRo‘’6 

WASDPC’T 
V/AS0RD93 
iVASnRnR'? 
VVASDRtOO 
WASPRIOI 
WA SDR 102 
WA SDR 103 
WASPRlO'l 
WaSDRIOS 
V/A5DR106 
V.'ASnRl 07 
VlASDKlOn 
WASORlP? 
WaSORI ID 
WaSORI H 
WASnR|12 
WaSDR 1 13 
WaSDRI IM 
WA50R1 IS 
WASDRI 16 
VUSPRI 17 
WASDR 1 10 
WaSDRI 19 
WA50R120 
WAS0R121 
WASDR 122 
WASpR I 23 
WaSDRI 2H 
WASDRI 2S 
WASDRI 26 
WASDR127 
WaSDRI 20 
AVASDHI29 
V1A50R1 30 
WaSDR 1 31 
WASDR I 32 
WASDR 113 
WASD«l-1'f 
WASDRI 35 
WASDRI 36 
WA SDR I 37 
WASDR 138 
WaSoR 1 19 
WaSDR I SO 

V/ASDRim 

WaSDR l‘«2 
WaSDR I S3 
WASOR I SS 
WASPR 1 S5 
WASDR1S6 
■ WaSDR I S7 
WaSDRI S8 


A-30 


OOHD*! 
00*1 OS 
0QH06 
00H07 
OOHl I 
CQH 12 
QOH 1 3 
OC H 5 H 
CaHlS 

QOH 16 
ODH 1 6 
□ OH 1 6 
OOHl 6 
OCH 17 
0 C H 2 1 
Cn42 2 
C';;.'(23 
DCH2H 
00 H 25 
00H26 
00H27 
OOH3 0 
OOH3 2 
09 H 3 3 
CP 4 3 
004 3 6 
C0H3 7 
00437 
OCH 3 7 
OOH37 
ODH HD 
OOHH I 
00 H 4 2 
ODH 4 2 
C0HH2 
004 4 2 

cpHhh 

CCHHb 
ODH 4 7 
ODH 50 
0045 1 
00H52 
ODH 5 3 
OOHSS 
00460 
00H6 1 
D0H63 
DC 464 
0946 5 
CCH70 
C0H71 
OCH 72 
COH73 
004 75 

00476 

00477 
00500 
0050 2 


"1 4 9 • “ 
150* 
151 » 
ISZ* . 
153* 
154* 
155* 

1 5 6* 

1 57 « 
158* 
15 9* 
160* 
161 « 
162* 
163* 
164* 
165* 
166* 

1 67* 

168* 

1 69 * 
170* 
17 1* 
172* 

17 3* 
174" 
I7b« 
176* 

I 7 7* 
178* 
179* 

I 00 * 
101 * 
102* 
1«3* 

18 4* 

1 Bb» 
186* 
187* 
108* 
189* 
190* 

19 1* 
192* 

I 93* 
194* 
19b* 
196* 

1 97 » 
198* 
199* 
200* 
201 * 
202* 
203* 
204« 
2oS* 
206* 


“ Hh I X = R 124 ) *R ( 27 ) *R 1 21 l + R ( 251 *H6 ( R 12 1 1 )+R t ,26 ) *HF 1 R { 2 1 M 
Call H8ALNC1HHIX,K(2Q) ,NSTR(liiMCFLtWLCOND} , 

Call PR0P1R120) sNSF, NSRT,CP8|ViTHBiRHDa»VISCB,XKB} 

IF ( .NOT.STEADY) R I 96 J »R 1 96 ) +R1 26 ) •DTH 

■ ■ Ri20)=R(20)-Rt26i 

■■\R(26i=0:.' 

75 TWIW=R 121 1 

R2C=RC20) / ■ ^ 

' ' R 7 I 2 

PWirj = R<23)/l 1 . + R(24)/R2S*WTHC0N/Rt2Bn 

get cOfiPUT 1 OG , T I ME lNCREHENT_AND. .NU.HBER.jar PASSES^, _ 

90 If (•NOT. STEDOY) GO TO 92 
NTYME=20 

Go TO 75 ' , ..... 

92 C = rU06)+R1967+R(66)*R(751 

DTYi1E = C/ lR;(76)+Am*CPA*GATR)**3 . Cti O, 

CALL OSURR . , M 

Uu(i6r|ic 7)''(R(52>+R(76) )*.s .... ..... . 

t)TYliE = AtVlNll0TYHE.DUMiOTH} 

IF (NPHASE.LT.7) GO TO 73 

DUH=Rt lo5)/36CD. 2 to* . 

If 1K(NK5+3) .he, 7) DUM=0UH/3. 

l)tYHE = AtllNl (DTYHEiHUHI wt 

93 NTYHE=1F IXt07H/0TYrtE+.99) ^ tE 

DTYtlE = DTH/FLOAT (NTYHE) 


8E6IN THERMAL iterations' here* 

95 LPASS=0 

97 LPASS=LPASS+1 . „ 

If INPHASE .LT. 7) 60 TO 200 

DRYER evaporation PROCESS 

PW0UT = R (91) • . — 

IF ILPASS-EG.l .AND, K (nKS+ 3) •LT*7) PW0UT“PS AT ( R |72 ) J*.7 
7W0UT=Ri72) 

PW t NF»,5« (PWTN+prtOUT J ... 

“ “ TWTMF=.S* (tWIN+R«721 ) ■ 

TwltjF = AMAXn TV<1 NF.TSAt(PVVInE)) 

If (.not. STEADY) GO TO 1 ID 

IF (NSTR(2)-1 1 10B»150, llO , : . . .- 

105 RESiD=R.(77) , 

IF (NSTPIHI.L'Q.U RF.SI0=R(94) 

EvAP=«RESlD-R(7«) >*R(66)/Rt77)*60, 

GO TO 1 4 0 . .. ... 

no IP (NSTR 131-1 )T30»tc2> 1,14 
112 VmaX=R2c /RHOO/Rl B£)«i44. 

Go TO 130 „ , ,, 

1 14 yMAX-3. I ( |R^ CVHaXVR 20 /RHOB/R t 8l ) * 144 ; 1 “ 

' ^'^ DIfMrL^BbHi tlV( 72 ) +46 o» > /537 * 1 **1 •75*14 r7/R 123) 

SC*VIS6AS/RH0B/D1FF ^ . .■ .... 

IF (NSTR(I) .LT, 3) GO TO I3l 
Ht)«UC/CpB/imOB* IPR/SC) **.67 


WASDR149 
WaSDRI 50 
WaSDRI 51 
V/ASDR152 
WASDR153 
V/ASPRlSH 

v;asori55 
. WASPR156 
iVASoR 157 
rt ASr.R I S8 
VVASOR 1 59 
VlASpR 160 
WASOR 161 
WASPR16Z 
WaSPRI 63 
WaSHR 164 
WA SDR 165 
WASPRl 66 
3VASPR167 
WASPRl 68 
WASOR 167 
VJA5PRl7n 

WASDR171 
WA5PR172 
WaSPRI 73 
WASPR 174 
v;aSPRi 7S 
WASPR) 76 
WASPRi77 
WaSDR|78 
V1A5PR179 
7;A5CR140 
WASPRl 81 
WASnR)82 
W A SCR I 43 
ttASCRl84 
WaSDRIOS 
WaSOR 186 
WASPS 187 
WASPRiap 
WaSPR 1 87 
WASPS I 40 
WASPS 17] 
ft.^5PSl72 
WASPR I 73 
WASPR174 
WA5PS175 
WaSPRi 76 
WASPS 177 
WASPRl 70 
WASP R 1 70 
WA5PR2P0 
WaSDRPOI 
WASCR202 
WASDB203 
WASPR2P4 
WASOR 2 05 
WASDR206 




2D7» 
208 » 
20 :? * 
210® -• 
211 » 
212 « 

2 I 3o 
2iH;a 

2 1 5® 
2U» 
217® 

-2 18»- 
2 19® 

2 20 ® 

22 1 « 

2 22 * 
223- 
22M® 

: 2 2:5 “ 

- 226o - 
227“ 
228® 

2 2 ? 9 

• 230® 
231® 
232® 
233® 

— 23H® - 
233 » 

23 6 0 
237 0 

• 23 8® -■ 
2 3 9 0 
2^(0® 
2H J • 
2*12® 
2? 3® 
24*1® 
28 5* 

2 *1 6 ® 
247 » 

- 2«e*’ 

24 9 0 

25 0® 
25 l« 

-- 252 O' 
2 53® 
254 » 

25:50 

" 256® 
257® 
258 0 
259® 

— 26DO' 
261 0 

25 2® 

26 3® 


60 TO 132 . 

OH = sQ**T t ** » *>^20/RH037 vREU/3» 14 I 

RE=VRELoOH*RHOB/VISGAS ^ — 

H04.023«01FF/0lv»R£®o«83o5C®®»*<4- 

R 1 9 2 l = H 0 ® R I 8 7 ) o R 15 6 1 / 8 5 » 8 ® I 4 4 ♦ ® ( ? S * T ' E i 7 2 * I ^ ^ 0 • ’* R 1 7 2 I ) 

O P,*,IMF/146Q,*T-.VlNF J ( ..... — — — 

V ^ * M O 0 I F Y ’ F R E E « A T £ R E V A P 0 R A T I 0 N F 0 R S U R F A C E ^ T £ N S I 0 N R £ S 1 S T A N c E 
ICLOtHES) OR AREA (OIsHEsj 

— L = 67 '■ 

ir NMOT^STEADY) t.^96 

I I A 1 GT • R I 1 D9 ) • OR « £VAP »LT ♦O * ): so TO I ^0 ^ — 

3 PVAP“rT 23J /f ^^TMCON/ (R25-t^E^ 

IF (PVA? »LE » P5AT( R ( 72) ) •»9?B I GO TO l60 

SATURAT^O DRYBR QUTUET — ^ 

^ £VAP®fRl24|»OuMAlR^ “RZS 

a IF (STEADY! QO T0^170^ • 

R(96)?R(?6J-EVAP0DTYHE , ' . ■■■- — — - 

-IF (Rt76) ,GE* Q*l 60 TO 'lTO 

r;vAP = R( 96 I/O Tr «£•*•£ V.AP 
^ R I 961 = 0. ^ ^: 

D QE VaP = EV AP » I 042. 1 — .^. 

R{25I=B25 + EVAP 

R{20)=8<241+R(25) 

QHQT0R=H ( 68 1*3,412 

«R lTE^t^!2oio!°VHAXjVRE°.DH%E,DtFF,SCsHD.PWINF*T« ' “ 


VHAX =' 


: * I 6 1 2 . 5 s 


BHa*i512.5, ♦ RE®*i6l2,5/ . 

^ 0 I F?= ’ :j 6 1 2> 5 I V' ■ SC’’ * » G 1 2 » 5 i 

Pfl 1 NF® ' 1 5 1 2 • 3 1 * TfllNF® » 1 61 2 .3 t ' 


♦ PVAP=» ,612.5 » . 

• P.VIH®’ ,G12.5» ? 

* T«0U7-» ,612. 5® ' 

■ therhal exchange 


TfUN®-* ,612.5/ 
EVAP=* ,Gi2.5i 


i *-•: HO® * , G 1 2 . 5'i" 
' PR=», 612.5/ 

pYlOUTB’ , 6 1 2. 5 , 
KPASS3* ,13/1 


' IF^’fNsf RU 1 . LT » 3 1 GO TO 2Q5 — — 

60 TO 263 

i IF (.N0T.5TED0Y1 60 TO 250 — — ~— 

STEADY STATE TMERMAl. BaUaNCE 
: TTUB = R:1721 

-l^7illTTul4i?76!MR15ir-TTUBl+A{ir.C^ 

• TTUa 1 ~QEVAPI®OOH/ ( GA IR*A( 1 1 •CPATR«76 1 1 , *ai 7 a j v 

R(5i 1=R (51 |®(R(76)«(TTU6-R(51 1 1 ®gHOTOR-RT 53 } )®OUH/ ( R ( a2 1 +R i ?6 1 1 

GO TO 280 : — ^ — — 

TRAN5lENT:-THERMAt-BAtANCE 


AASDR207 
,VA3DR203 
AAS3R20? 
AASORZlfl— 
rtASDRZM 
AAS3R2 12 
6A53R2I3 
AASORZ 14 “ 
AA50R215 
rtAS0R215 
flAS0R217 
•RA50R213— 
RAS0R219 
6AS04223 
«AS3R221 
AAS3R222' 
AASDR223 
6A5DR224 
AAS0R225 
-11A5DR226 - 
ftA504227 
ftA5-jS223 

iVAsDn22? 

A'ASD4 2 3D ■ 
6A30R231 
AA53R232 
AASDR233 
-«A50423H~ 
RASD4235 
AA534236 
AASDR237 
- ftASOH23S ■ 
flA5DR23? 
AASDS240 
6ASOS2H 1 
iVAS34 2H2“ 
ffAS0R243 
« A SO R 2 44 
fiAS3®245 
AA5DR246 
AASD424 7 

■ 6AS04248 
ftASDR249 
AASDR250 
AAS04251 

-/lA50R2a2 
ft AS0R2S3 
AA334254 
/.AS0 4 2 55 

■ ftAS0S256 
rtA534257 
ftA5PR25S 
ftA5uR259 

"ff AS 3 4 263' 
ffAS0R26 1 
RASDS262 
ftA50R263 
-'AAS0R264 



265 * 

266 * 

2 67® 
26B* - 
269 » 
27 0* 
27 I » 
272® ■ 
273® 
27 H » 
27 5® 

2 7 6 ®" 
2770 
27 8 0 
2 7 9 0 
260® ■ 
26 i > 

2 6 2® 
20 3 • 
23 M« ■■ 
2850 
236* 
267® 
28B» • 
289* 

290® 
291® 
2920 - 


0 3 6 H 

29 3 !» 

006^6' 

29 R® 

006 R 7 

295® : 

0065 1 - 

05653 

- 296® ^ 

2970 

006S5 

29 8® 

036 5 5 

29 9 » 

D0655 - 

- • 30d»'-— ' 

03655 : 

3di» 

036 5 6; 

■ ^ .3 0 2 ®: 

0 06 6 0: 


0 :e6 6D 

30 4® 

0066 2 

305 • 

006 6 3 

3 0 6 » — 

0066 5 

307® 

006 66 

3 OB# 

00670 
nn6 7 t 

309® 

— 11 n 9 — 


C06 7 2 
00673 
D36 7 3 
0 0 675 
0367 6 

00676 

00677 
■ 007 0 I 

007 02 


^^^ 517 7 1=8^ 72 ) + < R ( 76) ® { R ( 5 1 )-R ( 7 2 ) ) + A < I ) ® CP A • < A ( 2 ) -R I 7 2 J ) +6A I R 
0 *fm2)-R('72))-QEVAP>®OTVH£/C _ : ^ ^ 

2 62 R) 2 j ) =I R I 20 ) » CP3 » R I 211 +R ( 76 J oR ( 72 1) / ( R ( 20 j «CpB*R ( 76 J ) 

265 t rs]) =R?1 1 ) + \ R t 76 ) o { TTU3-R J 5 I ) } +QH0T0R-R U2 > 1 . ® DTY HE/Ri|D7X 
280 R{ 2| )®R (72 J > . ■ ^ V 

R|2)=Rt72) • „ 

285 IF INPHASE ,NE. 7) GO TO 2?0 

- - — - CHECK FOR DR YER SATURATl 0N”AND RE” I TER At I ON' ~ ~ 

; KPASS=0 ; 

_2B6 DUH^PSATi^ <Ri221“DUHl* " " 

IF {Rr25).LE,\i;SATJ GO TO 289 
- KPASS = KPASS+l 

:DUH2 = R(25I ' . : — ^ 

R125)=«5AT 

R(25)=R(25)o.995 
I F t STEADY 1 GO TO 283 . . . - 

R { 9 6 ) o R t 9 6 ) ♦ I 0 N H 2 - R t 25) ) * 0 T Y H E - — — 

— ' IF (STEDDY) go JO 298 ' ' _ . • 

R M 2 ) -R ( 72 ) + I DUM21-R I 25) > ®DTYHE* 10‘»2,/C 

288 Rl2l )=R172| 

R1 2)=R|72) . : — . 

R{2o»=R<2H J+R{25) 

289 rW llsRlIS)}! }»iR(2R) 'RTHC0N/Rt25)/Rt28) ) 

290 IF (LPAS5.GE*NTYHE) GO TO 293 . — — - 

IF (ABs(R(72)-TTUa) ,GT, , 01 ) GO TO 97 
293 ; CONTINUE 

. pf i,|rQR|i cYctE"p^ IF REOuE5TEO-BY-'NSTRt5r’“~' 

300 I F I N3TR { 5 } , E0»0 « 0R» STEADY > 60 TO ROD 

check^for^unIt^stIr^ 

I F 1 T I HE^ ! l^T ° R J L ) * 36 do; - DT I HE F GO TO R 00"^- — - — 

L P H A 5 1 ^ i 

IF (NSTRM) tGE* 2) LPHASE«7 

CsT ART = T I HE + Dt 

__ R<E1=R(U)+2R, , " ■'•■""'V''' 

K tNkS + 2)=K(NKS-i-2) ®l • , . 

^ I ^ ^ ^ ^ K^NKSf^)-l 

chECX^FOR end of current cycle phase - - “ 

' 330 GO TO t3RD,3R5i35D,355>36Di365,37D), NPHASE ^ , 

• CHECK FOR end OF CYCUE PHaSE I UASH HaTER FILU 

' 3RD IF {R(96) ,LT,Rt 102) } GO TO ROD ■ ~ 

-^--RT96)=R< l02)--^^“'~ — ~~~ 

■ eHECK^FOR end of CYCLE PHASE 2 WjASH WATER CIRCULATE) 

’ 3R5 IF rTIHE-CSTART ,LT. R197)®60>) GO TO ROO 

eb -TO -395 — •— -— ^ — — — 


2 {WASH water CIRCULATE) 
GO TO ROO 


AAS0R265 

f(AS3R2 66 

AAS0R267 

AAS0R26B " 

WAS0R269 

fiAS0R270 

ft AS0R27 I 

(VAS0R27 2 “ 

ft A5D3273 

ftASDR27R 

ft AS DR 27 5 

«ASOR276 

ftA50R277 

ftA50R278 

AA5DR279 

ftAsDfi;230 ' 

ftAS0R28I 

ftA30R2B2 

AA5DR2B3 

AAS0R23R' 

ftA5DR2e5 

«A50R286 

6 AS DR 28 7 

■ AA5OR28S ■■ 
«AS0R289 
ftASDR290 
ftAS0R29 I 

• «ASl)R29 2 ' 
ftA5DR293 
ftAS0H29R 
ftASDR295 

■ fiAsOR296 
ftASDR297 
ftAS0R29S 
ft A 50 R 29 T’ 

• ftASORGOO* 
ftASORDCI 
ffA5UR302 
ftA5D3333 
•vasoRjor 
AA 5 OR 335 
<?Ab0R306 ■ 
ftAS0R307 
iTIA5oR30B 
ft AS0S309 

-fiASDSSlO' 
ftASDR3 I ) 
ftA3DR3 I 2 
ftAsDR3l3 

- ftASDR3 1 R ' 
ftASDR3 15 
ftA50R3 J 6 
ftASDR3l7 

- ftAS0R3 1 3 • 
AASDR31 9 
ftAS0R320 
AASOR321 

-«A5DR322- 


D2- 11857 1-2A 


f , 


MaiNii PAGE 


1 


■ CD7 D 6 ~ 

3Z3«:'^ — ■ 


; G07D7 

32 H* 

350 

00710 • 

325 ■» 


1 00712 

3 26» 


0071 *1 

327 • 


0D7 1S 

328* 


00713 

329» 

■'■C . 

DD7 1 A 

33U» 

355 

007 20 ■ — 

33 I *“ 


CQ7 2 i 

332* 


P07 21 

333* 

: : :c ' 

- 00/22 - 

33H* 

340 

D07 2H 

335 • " ■ 


0072 H 

336* 

C 

0072 5 

337* 

365 

007 25 

3 30* 

C 

f— 007 24 

33 V*’ 

370 

0073 0 ‘ 

3H0* 


CC732 

3H !■» 


CC733 

nr» U 

3H2* 

>> U 1 A ** 

372 


REStD«B(9‘i) 
RESIOJ GO TO 


HOO 


CHECK FOR EHD OF CYCLE PHASE 3 (SPIN DRYi' WASH WATER OUTT 
RESI0 = R (77 ) 

IF tHSTR(H ) tEO. 1 J 
IF tR<V6l/R(66) ,«T, 

R(9tl=RLSIl)«R(A6) 

CHECK^FOR EHD OK CYCLE PHASE R {RINSE WATER FILL) 

IF IR (9A ) «i.T tR ( 103 J r GO To ROD ‘ 

n(96l=R(ld3J ■■ - 

CiO TO 395 

CHFCK FOR end OF CYCLE PHASE 
I TlflF-CSTART .LT. R(9B ) *60« J 

CHECK FOR END OF CYCLE PRASE 6 (SPIN DRY, RINSE WATER OUT) 
TO 350 • 

CHECK FOR end OF CYCLE PHASE 
(TIME-CSTART ,6E. R(77)*6D.) 


IF 

GO 


5 

GO 


(RINSE WATER CIRCULATE) 
TO RDO 


GO 


IF 

IF 

GO 


.LT» R{7BM go 


7 (DRY) „ 
Go TO 372 '■ 
TO 372 


> 

J. 

CjO 

CO 


CD 735 
007 3 6 
GC737 
CP ? «) 1 


Ct’/*(2 

Cr/'t'l 

00795 

0C796 

00750 

Ce 7 b 1 

00752 

OG7b3’ 

0D7Sb 

OC 7 6 3 

00763 

007 VI 

00765 


SAM-* 
3Hb* 
3 H 6 9 
'3*17 • 

3'(9« 
3 50» 
■;35 1 » 
352« 
3 53-* 

35 H* 

355» 
3 5 6« 

3b7t 
35 O'* 
359< 
360* 


395 


HOO 


■ AND* 

■ AND* 


NSTRd J *EQ*1)_ 
NSTR{5) •EQ. 1) 


LPHASEcQ 

R( 95) -FLOAT (LPHASE] 


H50 

20H0 


(K (96)/R (66) 

, TO HCO 
CSTART=-1, 

LPHASl* = C 
GO TO 310 
LPtU‘bE=NPHASE + I 
IF ( LPHASE. EQ. 7 
C5T AKTsT I MF. 

I F I . riPT. STEADY 
K (MKS+3 ) -WPHA5E 
R (6b ) =«rOTOR 
IF (NPRASC.LT. 

R(93)sRt2B)-at6) 

R(201=R(2H )+R(25) 

CONTINUE 

IF (NSTRdT) .EQ.-Q) RETURN 

WRITE (6,2DH0) NPHASE , LPHAsE » QEV A p , C 

FbRIIAT IV* NPRASE='»I3i * LPHASE=’iI3» » QEVAPa* iGl2*5, 
» * C=* ,G12.5/) 

RETURN • ■ ■ — r — 

END 


7) GO TO'HSQ 


end of COMPILATION; 


MO diagnostics. 
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SUBROUTINE WA5TEC ^ „„ 

common /comp/ DSUB) iMiNAl , MB I ,NC, NCAB t NCFL , NEXT i NEX V , NK i 

" r-l i.r^ACOr* M D IT Mor-T/AI ^ S ^ f ^ 5 P ^ $ p T C 6 ) J 


. u firf w n / V- w r / u ^ i 3 j i n j m ^ « 1 > ih o 9 l. 

NKEX »NkS iNKT iNLFL,NP,NPASSsNPF,MPrT (61 iNG, 
NSTRdai ,(-fSUBR,NV,MVT,Y(l2) 

- M M n Kl / » A AY/ 


COMMON /RAR'RAY/ |MAXR,R(11 

COMMON /KANDV/K » „ 

COMMON /Mis'c/ otihe«grav,kflsys»koutpt»kpordp,ksypas»ktRans, 

L s u H i S j I M ^ ^ c I M A V r*i P _ M A if C C T . Ml-nMPC . MPwnT . Mt A . MP A <5 P 

HINSSl iP&Hr' “ 

Common /prop! 

GAMGAS.RUOO 

WTHDlLtlVTMTCiXKL'iXKl YVI iXK'srtSjAKLltUVlsum 

Common /source/ ai iv) , o( i9 ) »cpa,cpBi iai » ibi ,na,nb,npfs,npfst(&) » 

NSFS»KSF5T (6 1 ,RHOA ,RHOB,ViSCA,VISCB,WTHA,WTHB,XKA,XKB 

Common /MAXRi/HAXR 
DIMENSION V{ n ,KM ) 

equivalence <V>K) . 

Logical steady ,steddy - 


THIS subroutine simulates steady state and ... 

OF A URIME/FECAU WASTE COLLECTOR (DRY^JOHN aND/OR 
the following usage phases HaT be SELECTEOi • 

PHASE 0 ~ unit off. . ,.„ ■ 

PHASE 1 « URINE COLLECTION 

PHASE 2 - fecal collection . 

PHASE 3 t. combined urine/fecal collection 

COMMODE contents MAY BE UNDER VACUUM IF REQUESTED DURING 
PHA5F5 D AND 1. VACUUM pUMP-DO«iN IS INITIATED 
automatically LTRANSIENT only) to begin VACUUMDRYiNGt 


WASTEnni 
VfASTE902 
Y/A5TLC03 
WASTEnn*! 
Y/ASTEonS 
WA5TE096 
Y/ASTE007 
WaSTEPOO 
VVaSTEpD9 
WASTEo I 0 
WaSTEDU 
WASTEC12 
IVASTFnia 

WaSTEPI') 
WASTFDIS 
V.'ASTEPI6 
Wasted 1 7 
■ WASTEnin 

wastepip 

transient PERF0RHANcY/ASTEn?0 
■ - URINAL). 


STEDDY*»5TEADY 
IF (NSTRU6) .EQ. U 

- initialize IVASTEC 


STE0DY=»TRUE, 

data 


if 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


INPASS •GT. 
(ABS(R<51 ) ) 
(RtSS) 
(RTSS) 
1R1571 
IR (SB ) 
(R(6D) 

( R ( 61 } 


.LT. 

.LT. 

.LT. 

.LT. 

.LT. 

.LT. 


0) GO TO 
,LT. I.F. 
.0001 ) 
.9001 ) 
.000 1 ) 
.0001 ) 
.0301 ) 

.□ood 


5 

..- 9 ) R(sn = 
Riss }=70. 

R (S5)=2. 

R ( 57 ) a70. 

R (SB )=.B 
R(60)=70. ~ 
R ( 6 1 > = 1 o 


'60 4 


la 

ro 

CJl 


N» 


WaSTEPZ l 
WA5TEQ22 
WASTE023 
WASTE029 
V/ASTFn25 
WASTEP.T6 
WASTE927 
WASTEP7B 
VVASTEt??? 
WASTEn30 
WaSTE 03( 
WA5TEP32 
WASTE033 
WASTED3'! 
WASTEP35 
WASTFC36 
Y<ASTFr37 
VYASTEr.30 
WASTE039 
WASTEO'IO 
WASTEpNt 
WaSTE092 

111 A CT ^ « *1 


c.r|rtciaV' 


' OOIHG 


QQIH2 


OOIHH 


001 HA 


CO ISO 


001S2 

7 4 

OOISH 

50^ 

On ISA 

: Si* 

‘00160 

52* 

D01A2 

: 53r 

OOlAH 

5H* 

00165 


001A6 

5 6-* 

00 1 70 

57 • 

00172 

50* 

0C17H 

5 y * 

CCI7 6 

6ir> 

CrHIJO, 

6 1* 

0C2U2 

62* 

0020H 

63* 

00206 

6 7* 

00207 

6 b* 

0021 1 

66* 

00213 

67* 

~ 00215 

60* 

0021 A 

69* 

00217 

7p* 

00220 

71 » 

“00221 " 

"^ 72* 

00222 

7 3* 

0022 3 

74* 

00227 

75» 

C0230 

7 6- 


DC23 1 
0023 2 
00233 
0023H 
0023 5 
002 3 7 
002H I 
002 Hi 
OQ2H i 


'If tPlABl .LT. .COOl) R 63)=70. 

IF IRI6HJ »LT» .0001) 

IF iR(67) .5.T» .0001) S(67l=20. 

I F 1 R ( 69 ) .LT . .cnoi 1 R t 6V ) =f 08 • 

If (RI7H) ,LT. ,C001) R</H) = U0 

IF tR(75» «LT. .0001) RT7fl=f»_ 

IF (R177) »LT. *0001) R 177 j = lj5 

IF (RT70) *LT. .0001) R178J=«15. 
If (RT79).LT. .1) Rl79)=97, 

IF (STEADY) GO TO 5 
KlNKT+l)=0 

K(NKT+2)a-l ' ■ _ .. 


: .DC2T3 

0 7* 

. 6 

7" DC2H5 

B^H*- ■■ ■■ 

7 

• • • 002SD 

B7 e 


■ ■ : 0075 1 

90 ♦ 


•3 0 0 2 52 

9 1* 


■7“’ 0075 H 

- 92 f 

B 

00 75 6 

93* 

002 60 

94* 


0026 1 

95* 1 


00262 

96* 


00263 

97* 


00265 

90* 


00267 

99* 


00271 

ion* 


; 00271 

lOl* 

C- 


IF tR(Bo) tLT. .0001) Rl89)=f*„ 

IF (RC«1) .LT. .CCiDl) R(|1)=1*2 

IF (Rta3) *LT. .0001) Rte3)=»6 

IF (R«R5) .LT. .0001) Rt05)=.5 

If T»(H6) ,LT. ."''01) P186)=.3 

IF IHtiVy) .LT. .OUC|) R(a7) = .7S 

If (R 180) ,LT. .O'JOlj Rl88)=.2S • 

I FIR ( 91 ) . LT . .0001 ) R (91 )=2 «5 .. _ — 

lF^LNiTpLf)«EQ.D .AND. R(66).yT. 1.2) K(NKT+ 

IF (R(09)+R(9OI .LT, I .E~9 ) R ( 39 ) » .OB*R ( 9 I 1 

I F ( R ( 5 I ) *LT .32.0 ) . GO Tp_H_ — — - — — - - 

R(S9)=R(89)+R(90) 

R (90 )*□. 

GO TO 5 

R ( 90 ) =B( 89 ) +R ( 9C) . : — : - - 

R(a?)=0. 

LMAX“H+5» HAX0(HPF»NSF) „ ■ 

forhat^(7/a«’"c5^ . checkout of WA5TEc»/1„__ 

(JMOTOR = 0. 

QEVAPaO, 

NpHASE=IF 1 X (Rt 66 )+»2) 

RHOBQaRHOD ' ■■■ ■■' "" ” ' 

IF (STEADY) 60 TO 7 , - , 

IF (NPHfiSE .EQ. KINKT+I)) GO TO 6 

I F ( NPHaSE . E« * I^ OR , NPHASe . EQ . 3 ) R ( S2 ) «0» . 

rcRFoRH (IASS OALaNGE For EACH CYCLE PHASE 

IF (NPMASE.LE.H , / NO . A ( 1 ) » g 7 * I • E-6 ) . R ( 9 9 ) =RHo A 
Do H L = 1 ,LMAX • 

RIL)=A(L) 

I F^I i NOT^ steady / AMD . A ( I ^*GT » I . • AND *L . L£. H +5 *NPf ) R ( 99+L ) »A ( L ) 

IF (NSTRIlI.EO.O .and, nPHasE.LE.D R ( L ) =0 » 

CONTINUE 

R { 3 ) =A (H ) . . 

Rl;22 1=0T" V. ■■ ■ ■ 

? F ^ U N 0 T i 5 T E D D ? ) * C A P »R ( 0 5 ) + R ( 8 9 ) + R t 90 ) * . H 6 + R ( 9 1) • R ( 8 8 ) 

If (NPHaSE.EQ.I iOR, NPHASe.EG.3) GO TO ID 

If (NPHASE.EQ.2) GO TO 20 

GO TO SO 


R (801=3. 

R (81 1=1.2 
n(83)=»6 
Rt05)e.5 
p ( PA ) =»3 
R(a7)=,7S 
R (88 i=.2S 
R (91 )=2«5 
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V<aSTEP'I9 
AflSTEpSO 
Vi A S T (' 0 5 1 
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V< A STEPS 3 
V/ASTEOSH 
WASTEoSS 
VUSTEnSA 
WaSTEOG? 
V'JASTEnSn 
VVASTE0G9 
V/ASTEnAO 

kasteoai 

ViASTEnA2 
V. ASTEQA3 
WaSTEOAH 
WASTEnAS 
WASTFPAA 
ViASTEoAT 
WASTEoAP 

wastfoa? 

W A5TEo7C 
WASTEO? I 
WA5TE072 
flASTEr>73 

wasteoth 

WASTEOTS 
WA5TCn7A 
ff ASTE077 
Vi A 5 TE 078 
WASTE079 
WASTEnflO 
V/ASTEnPl 
WASTE032 
WA5TE0G3 
ftASTEoGH 
WaSTECGS 
WASTECiPA 
V;a5tEoP7 
ftASTEoAO 
V, ASTEDP9 
WASTE090 
V.A5TEP9V 
WASTE092 

VVaSTEC'^3 
WASTEP9H 
ViASTEp<’5 
ViA5TE09A 
V.'ASTC097 
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WASTE099 
■ WASTEI 00 

waste 101 
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iz-f 
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109 » 


16 
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003 06 

1 12* 
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1 1 'C* 
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17 
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116 » 
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00315 
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18 
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M9a 
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121 »i 
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20 
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00 32 7 
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00 33 0 

l3n* 


0033 1 

13 1 * 


00332 

1 32» 


DC33N 

133* 

f 

00335 

1 3 M t 


00336 
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CC33 7 

1.3 o* 


00337 

i37«» 


003H1 

13HW 


003H2 

13V** 

r ' 

0038 H 



00386 

I (\ [ o 


DC 350 

1*^2* 

; . \ 
■ t 

CO 35 1 


j .:;j ' : 

CC352 

IV 


C0352 

1 Vbl 

i ■ 

00352 

1 H6 » 


00352 

1 H7<f 

A : 

0C3S3 

IV 8^ 

T 

or 3 55 

iw^ 

■ Vr* 

CP 357 



or 357 

in I ^ 


CC36 1 



CO 36 3 
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0D36H 
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URINE COLUECTOR bPERATIOM’ ; 

UFL0W=Rt6‘?) 

I f { RlIzr+UFtOvJDTVHE .GT. R t 83 ) + 1 ,£-<< 3 UFLOW® { B 1 83 3 -R ( 02 3 } /DTYhE 

IF (UFU0W.LT. I .E“'l ) UFL0W»Q. 

R(a2 )=R (82) +UFLDW-OTYHE 

R ( 20)s=K (20 ) +UFUnW . 

Ri26)=R{26)+UFl,0W ‘ --- - . . .. 

IF (UFU0W+B(7) ,LT» I .E-'U' GO TO 18 
IF (8(ll .(5T. ,001) 60 TO 17 

R(21 )=R(79) • . - ..... . * 

HH 1 X=n I 5 3 *B I 0 I *8 ( 2 3 + B ( 6 3 *h6'{ 8 (2 ) 3 +B ( 7 3 *HF ( B ( 2 3 3 +UFLOW* HF ( R 1 79 3 
call HBALNC(HMIX|Rt203 vNSTR.NCFLjWLCOND),, 

call RRoP{K( 203 .NI’F.NPFTiCpB. DUM j RHOB i OUH , DUH 3 . 

IF (HPMASE.NE.3 3 60 TO 50 

fecal COLLECTOR OPERATION ; • 

RHOTOR=3.‘fl3»R(673 — “ — " 

IF ( STEADY 3 GO TO 50 
p (933 -TlHE 

K (NKT-t-2 ) =~1 ^ „ ' 

I f t STEDDT .OR, NPII ASE , eQ . K ( NKT + 1 3 3 GO TO so f; “ , • - 

K(51 3 -( cAP’lOSl 3 +R(0*1 • (R(07 3 + ( 1 .•'R(e73 )»R(a8 3 3 3 

7 t CAp+H ( B6 3 » (p (07 3 + t 1 .-R (07 3 3 *R (68 3 3 3 

P(9n=R{9I3+R (06 3»R(883* ( 1 .-R(873 3 

PlU93sR{B93+R{e63’*R(87 3 - - 

CAPpCAp + R (86 3 * (R(87 3 + { I «”R (87 3 3 ‘RTBa 3 3 
IF (NEWDT.EQ. -I) RETURN 

Call osurr . 

LLL=0,' 

LPA5S=1 

If (STEDDY3 GO TO lOOO 

determine TRANSIENT COnpoTlNG TIME increment OTH (HOURSI 


IF (A(13.GT. >00 1 3 3UH6=SUH6+ ( a ( I 3 *CPA«R (773 3 / ( a ( 1 3 *GP A + R (77 3 3 
IF (D(1),GT. .00(3 SUHG=SUH6+(B { I 3»CPB*K(783 3/(B( 1 3 •CPB+R(783 3 
If (SUH&.LT. 1.E-IS3 SUHG=t.E-15 

LPASS«IF I X IOT IME/AMINI (OTIMEi ,‘t*CAP/5UHG»3600. ) + .99) ■ • " " ' 

Otm=OT IME/3600./FL0aT(UPAS53 
1000 LLL=LLL+ I 


CHECK FOR VACUUM drying selection • 

IF (NPIIASE.EQ.2 .OR. NPHASe.EO.33 60 TO 200 
IF ( NSTR I 1 3 .EC. 1 3 GO TO 200 
IF (STEDDT .or, K (NkT+23 .Eo. 03 GO TO 80 
VACmiH PUHP-DOIVN 

IF (K(NkT+ 2) ‘.LT, 0) R(8‘I3=R(81J*R(993 
K INKT + 2) =b 

DTh1n=(T iME-OTlME^FLOAT (LP aS5-LLL)/FL0AT(LPaSS)~R ( 93) 3/60. 
IF (0TH1N.GE.R(‘803 3 60 TO 80, ' , , 

R('I|=R(j 033-0THIN/R(803 • ( R U 03 3 -PSAT t R ( 5 1 3 ) 3 

R(3)=R(N3 ■ 

R( l3=R(e‘n/Rt803*60. 


A-38 


003 73 

003 76 
00 'lOD 
00401 

00403 

00404 

00405 

00405 

00406 

004 10 
0041 1 
004 12 
004 14 


004 15 

17 3- 

0(34 1 6 

174* 

004 20 

175» 

004 2 1 Z' 

176- 

00422 

177* 

00423 

17 U* 

00425 

179* , 

00426 

loo* ■ 

004 27 

16 l* 

0043 1 

1 B2» 

004 32 

183“ 

00433 

104 • 

CC4 34 

las* 

004 35 

106* 

004 3 6 

107* 

■0043/ 

108* 

00437 

109“ 

00437 

19U* 

00437 

. 191* 

■' 0044 0 

192* 

004 4 1 

193* 

00442 

194* 

004 43 

17 b* 

004 44 

196» 

004 4 4 

1 97 • 

004 4o 

19H* 

00446 

19 9“ 

■ 00:450 

200* 

00452 

201 “ 

00453 

202“ 

00454 

2 03* 

00456 

2 04“ 

00457 

2 0 b* 

004 6 1 

206 * 

00 4 6.T 

2h7* 

03463 

20ti« 

004 65 

2 09* 

00467. 

2 1 0» 

00470 

2 1 I • ... 

“ 00471 ■ 

212* 

004 72 

2 1 3«' 

004/3 

21 4* 

00473 

2159 

■ 004 74 

Z\h’> 

00476 

217 + 


DO 74 L=5,LHAX „ 

IF {L.E0.0 .OR, U.EQ,?) GO TO 74 
R(L1=KUI*R(99 + U)/R(IQ0) 

R(B)=IM1071 - . -- . 

R(9)sR( 108) 

GO TO 200 • 

VACUUM DRY ; . - ^ 

If (.HOT.STEADYI K(NKT+2)=0 , ■ .. , 

SUDEVA = PSAT IR tSl n . R < 75 J *R { 74 > /SQRT (R ( 5 U +460 , ) 

R ( 76 1 -SUUEVA 

IF l.tlOT.STEDDY) GO TO 82 . 

K(6J=SUnEVA 

Qi:VAP = SUIlEVA» 1 042« ^ 

IF {R(5!} .LT. 32,0) QEVAP=sUDEVA*12Z5, 

GO TO 06 . .. . . . ....... — ■ 

DLIM = R (89 ) 

DuM2-R(VOI „ 

If* (R{B9i»lt, ,0001) go to sh 

R ( 89 I “ApivX 1 (0* » ( R t H9 )-5UflEvA*0TH) ) .. 

SuB = SUnEyA-(LUJH-R (09) )/dTH ; , 

IF (R(9qI,GT, .coon R(90 )=aMAX 1 (0,1 (R(9p]~SUB«DTH) I 
DEVAP=tDUM~R(87n»1042»+(DuM2"R{9on*lZZ5, 

«F.VAP = QFVAP/DTH -r.,.. • 

R(6)=tDUH+DUH2~R(09)-R(90) )/DTH 
R(1 )=sRl6 1 
R(4)=PSAT(R(51 ) ) 

R ( 2 ) =R ( 51 ) ■■ ■ ' ■ ' ' ■ — — — — 

PERFORM thermal BALANCE 


) L=0 
> L-L+l 

call QSIJRR 

?F^( A J lI^GT^^COl lN=QrN+Acn*CPA»R (77) /(R( 1 ) *ePA+R (7?) ) * 

"ifMb( 1 ) ,GT,,D01 )QIN»QIN+ B U ) *CPfl*R ( 78 ) / ( R ( 20 ) • Crb+R I 78 ) > 

• FH5t)) , . . - 

IF («NOT»STE0DY) GO TO 230 
DUH=R (5 1 ) 

R(51 )=R(51 )+«IN*,5/r(52! ^ , 

IF (AnS(DUM’*R(5l ) ) .GT,,05 , AND, L,LT,25) 60 TO 2lQ .. ...v 

3 If 1RIN^LT*3' ,AND, R ( 89 ) * LT • I • E**4 ) go TO 250 
If (QIN.GT.O. .AMD. R(90).LT*l«E“4) GO TO 250 
If (DIN ,LT. C. ) GO TO 240 , ... . . . - 

ALLOv. FOR Collector ice to melt 

If (R(SM ,LT. 32.) go tO 250 ■ 

DUH=AHlNl(R{90)|l31N/i44. +DTB) 

R ( 90)sR( 90 )-DUM . ....... ... . i. - 

■ R ( 89 I »R ( 89 ) +DUH 
0 I N=+DUM* 144 . /DTH 

ALLOfl°FOR collector LIQUID WaTer TO FREEZE , 

3 If (R(5|) .GT. 32.) go to 250., . 

DUM = AHINl (R(09) , “Oltl/144. *OTH) 


waste (60 
waste 16 I 

WA5TE162 

WASTE) 63 

. waste I 64 
waste I 65 
waste 166 

WASTE! 67 

WASTE!. 68 
WASTE 169 

waste I 70 
__ WASTE I 71 

WASTE! 72 
waste 173 
• waste 174 

waste I 75 

' ■■■ VfASTE 176 

WASTF177 
Waste 1 7o 
waste (70 
'WASTE I no 
• waste ! 4 I 

waste 182 

_ WASTE! 83 

■ waste I 84 

Waste 185 
waste 186 

. . waste I 87 

waste jnn 
waste 189 
WASTE! 90 
Waste 19 1 

WASTE192 
- WASTE I 93 

WASTE I 94 
WASTE ! 95 

■( A (2 )-R(Wa5TE1 96 
wasteist 

+(B(2)- WAStEjSo 

waste 199 

■ ■■ waste 200 

WASTE 201 
WASTE702 
WASTE703 
' WASTE204 

WASTE2D5 
WASTE206 
Waste 707 
_ WASTE208 

Waste 709 

WASTK210 

waste? 11 
waste? I 2 
waste? 13 

WASTE2I4 

WASTE21S 

WASTE 2 I 6 

IVASTE2I7 


22418571-2; 


6S-V 




aOH77 

005 DO 
0 C 501 • 

00502 

00503 
00505 
0050,7 
Og 51 Q 
005 1 2 
00513 

005 15 

005 I A 
00517 
005 ZO 
0052 I 
00523 
005 2 3 
OObMO 
005*10 
OCBHO 
005*10 
005*11 
005*12 


n 10 7 I =n I 0 7 j 

R190)=0(*JCHDUH 

QIN= Dim* 1*1*1. /OT'^ 

R(51)=Rl5n+0Itl»C »1/CAP 

IF 1 .K 0 T. 51 EAOYI K { NKT+ 1 )=NPHASE 

IF (ULL.LT.LPA5S) GO TO lOoO 

» f A u I 9 1.1 n T r> » 


rU6bl=0M0T0K 

IF 1 A ( I ) ,LT . I .E-20) Go TO 320 , • ^ . 

!M 2 1 = (R ( M »CPA*R 12 l+R ( 77 ) *R ( 51 ) 1 / (R( I )*CPA+R ( 77)1 

IF IBtn.LT. UC'^ZOl GO TO 350 

H ( 2 i 1 SIR 120 ) .CPll.R 1 21 1 +R (70 ) *R (5 ! 1 ) / (R ( 20 ) »CPB + R <78 ) ) 
criv=cpnR • 


I .E- 20 ) 


criv=cpnR 

l<j|Ob = RHOUn 

Rt761=K|6)-A16) 


R I / O I I O J - « l O J 

IF (NSTlM 17) .EQ.O) RETURN . 

VllMTE (6,VG1 I UPHaSE*LPA5S,qHOTOP,SUBEVA.SUb,)JFLOW,SUMG,DTH 
» ,CAP,QEVAP,QIM . ■ ^ 

?Q) Format (//> npmaseb» , ir , t lpass«» , I5 , »* qhotors* ,gi2.s, 

* • SUUEVA=* »t.I2.S, » S0 Bs»»G) 2.5, ’ UFLOV/= ’ » G ) 2 .5 i » SUHG=‘, 

* G12.S/ * t>TH-»,Gl2,5i ’ gAP=»iG) 2.5, ' OE V AP= » i G I 2 , 5 » 

* • Q1N=» ,GI2.5/) ~ 


RETURN 

Et(D 


END OF COMPILATIOH; 


diagnostics, 


waste? in 
waste? lo 
waste? 20 

WASTE22I 
WASTE? 22 
WASTE? 23 
waste 22*1 

WASTE 775 
Waste 2 26 
waste??? 

Wfl5TE77B 
V.ASTE77S 
WASTE 230 
WA5TE23I 
WA5TE732 
WA5TE733 
y;ASTE?3«l 
WASTE735 
WaSTE?36 
waste? 37 
WASTE?3a 
WASTE 239 
WASTE2*10 
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APPENDIX B 

INPUT G-189A DATA FOR SHUTTLE ORBITER 
MODEL-BASiG UNMODIFIED CASE 






<- 

^ .. 


ca 

I 

ro 


lASiC CA5£ NOt 


c. 1 a? A BASIC shuttle Sl HULATIO?^ > UNHOPIMCP 


tKErXcK? iiOOCVjAS 1 l_7^^ro»ENTSi THE LAS T or WHICH TO BE. SQUE P IS HOt Jh 
THE^HOpELLl^ IEHT^ fflTH qUrpyiESSUAE. PROi» OATA AirLPCATIOHt 


3 


D 


s case I 
.PTIHE 
xchPut ^ 
kPRNT _ » 
'kpron' » 
KrriNV » 
"RryHCH 

kruk 
'haxci 

HAXLP 
HAXSLP 
. MAXSSI 
tt IHSS j » 

PGHIH » : 
PUHIN , 
START « 

. TIHEHX-- *.. 

THAX » 
«JHIH ~.»- 
iTHAx w 
. iPT|5 .-X 
IPOHLY • 
^TPLOTS 



idOOOOOOQE^POt 
iOODOOOOOE+OQi _ 
t iB42QDQQE«OAi 
„ i5Z9B0iOQE>0^ I - 
I 25Dq0DOOE*O3 I 

*iH7;OdOOOE*03K» 

I lOGOODOQEiO?) 

^ ♦0 • 

_ iOOOOOOOOEfOOi 


fQQDQQQDDE^OPf 

tODpOOODOE>OOt /tOOOp6000E*OOi . , 

-TP LOtE^. P _i OQOOaOOOEtOO t iDOODOODOEf OPi, 

tODQQDQDbE^DQe i POOOQOOD E^OQ r 

^icsTEoT . «- 

SEHOr''- 

.SPROPI ■ 

Cf * »IODOQDODE*Qlt •ZH8ODOaDE*q0» 

#5AODOOOOE*OQr 


..tQPOOODOoE^OOj- 

-.jOOQDDOOQEYOOx; 


• aoooooooE*^ooi 

I OOOOQOODE>OQ » _ 
#OOOdDOOp£*00» 
^lOOOOQOOOEtdOi _ 
"«OOOODODPE*OOi 
tOOOdOOOOE^OQ 
%ODDPOOdOE*QOt 
foobopoopetooi _ 
rOOtiODOddE^'Od I 
tOObOQOOdE^OOi-^ 
%ooooDOPPE’>qdi 
tODOCiOOOOE*OOi__ 
“■f OOPOaODpE^OO.I . 
tOOdOOOOdEtOQt 
fdOOOOOOOEtDOi 

# ODOOOOOOE*OO t „ 
tOOdbODOOEtOOt 

_iOOOOPOOOE>OOi__ 

^QOOOOOOdE^^OOl 

jOPOOOOPOE*OOt_ 

tOODdOQdOE^OOi 


iZTdOOODoE^OOi 

_ • TZDOoOaOE-^OQ I i bODDObODE *0P i i OOOOOOOOE^ 00 J 

f OOOOOOODE^Qbi ' ibP0o00P0E*00t^ , * 0000 doode^-qo j 

t OOOOobDOE*OOi ^ f O0 OdOODQE*O 0 I ^ tOOOOqOOpE + 00 I 

“ i qoOOdPOOE+DOi\ ‘ • pdOOOQbOE^DOi lOOpdOODOE^OOi 

idODdpOOOE^OOi ___ •pOOOPOQOEtQO I 
~ iboQOOOOOE^DOi »OPOOOPOO£*DP| 

^ rboOOqOOOE-^ DOi * ODQOOdDDE + OO I 

~^oooboDooE>oai ^tpodoooooE^oo? 

>OOPOODOOE+O0t _ f OObODDOOttpOi 
* » DOQOQODOEtdO » ibOODOOOOE*pO» 

t OODPaObOE>DO f 

’ "VOOOOpODOEtOOt rODOOObOOE^dOi 

_ tOodaooooE^ooi^__ ♦ooodddooe»qo» 

iOOOOQOOQE'^OOi tOnOPOpDOE^OPt 

_ iDobbpoqoc too I • pODoobooEtop i ^ 


tOdoODOOpE^QOi 
tdOOOOOQOE^OOi 
I DPpOOOOpE^OOi 
tOOdOOpOpEtOOt'^ 
>OOQOOQOpE*OOt . 
I ODOOOOdOEtDOf 
• □ODOOQOOEtOOi ibbOOOOOOE^OOf 
•DOOOODOOE*OOi 
iQOOOOOOQE^OOt^ 
tOOOOOobOE^PQi “ 
tOOOODOOOEtOQi 


tOooogOdOEtoot 

^topoppopoE^opi; 

•OoOOOOOOEYDOi 

:^«PoaQpOOOltOOt. 

lOOOOdOOOEtOOt 

_»OOQbpOOOE>OOi^ 

"“iPoODOpaDEtODi” 


•gpooooboEtoOi 

iQOooodboctbOi 

lOOOOOOOOE'i'ClOi 

.ipooboobOE^bOi, 

rObOobOdOEtOOi 

tOQOOQOOPC^OOl 

'‘lOODoaodoEtoor 


lOoboooodE^odt 

*QddOQOOQttOQ> 

tOOOOOOOOE^OOi 

lOOOdOOOQEtoO?^ 

iOOOQOOGOE^OOi 

tOOOOOOOOE^OOl 

lOPoODQOOEt^OCIl 





o 


o 


Q 




o 


o 






U- 


D2.118571-2 . 


\ 


_»DOOOaoDOE<'OQf 

tbOOOObDOE>OQ) 

CPCOMt » t 


’cPCO/rfV p 
^CPC02 _ » . t2 
CPOlL » tZ 

JCPOJ^T^ « ^ 

CFT«^ p *2 

qXHGAS ^ iV 

RHO » 

f siaodoQQE^oz I : 

” lOdOObOOOE^ODi 

rOOOqQpOOE+00> , 

iOOObOQQDC>POr 
l OOODdDOOC^ODl . 
» OOOdpQOOE^ DO f 
_ ;tOQOOOOOOE*DQj . 
tOOOOOOOQE^DDi 
iQDQaQQOCE>QQr- 
f OOOOOOQQE*QOi 
» t}OOQOC5PE*OOi : 

t 000000001*00 t 

f OOOdOOOOEtpOi . 
1 bOOOOOOOE*OOi 
_^|OOOapDOOE*OOl- 
tQqQOOODO£*00» 
^ l OOOODOPOEt OOr 
f OOOOQOQOE>OQ* 
<OOOOPOOD£*ODt 

^ iaoooooopE*oo» 
_tOOOCQOOOE*QO|-. 
iOQObODOOE*POl 

i OpPdOPOPE*QDr 

tOOQOaOOOE*OOi 

—.vise • 9 > 

I lOZCipOOOE^O?* 

tOOOOOOOOE^PDi 

iODOOOCIOD£*OOi 
_ f OOOOOOQO£*Dp| , 
tOOOOQOQOE+QOi 

iOODOpQdpE*OOi: 

tOOOOOOOPE*OQf 

ooodoooOE^oor 

. «poooooodE*ooi 

' f OOPOOPOOEtOOl 
*OOOPOflOOE>OOr 

^ iOOOOOOOOE*OOl 

I OOOQOOOOE*‘OOl 
tOOOODOOPE*OOl 
iOdpOOOOOE^OOi 
tQODOQDOP£*00 t 
tOPCOOOOOE*Od) 
fOOOODOPp£»OOl 
fOOOOGDOCE*OOi 
iQOaOOOOO€»QOf 
^QOOPOQOO£*PDi 
VoOOOODOQ£«OOi 
9O0O0 COOQ£^OOi 


>nnnonQODE*DD» tPOOPOdOOE^OP ? 

. |OOOOoDOPE*OOi iDOQOO'iOOE^OOl 

1oo6oodo£*oi i ^ 

HHOobDOO£*QDi 

zoQobooot+oot — — 

ZBOOODODE+OOi 

ZZpOOOOOE^uO i^ . i. 

ZOOOpOOOE+dOf " 

HOOOPOO^»Ol» 

iZHOODODE+OZi |8f8ddO00E^t)Zf cr ll 
,48‘<D0d00E*p2| ,^^^iOOOOOaOOX*OOr . 


oOOgOQODOttOOi 

>OPOPOOOOE*OOj 


i OpQOQQ 00^*00 1 
^1 OQOOQOQOEoQOi 
♦OODOoOOOEtOOi 


tODQQQODO£*DQi 
• gCQdOOOOE^OOi , 
idOQOQOQP£*OPi 


t pOOOOOOOEtdO* •00d00000£*00i 

tOOQPoPOO^'^’POt iOODOODOOE^OOi 

.tOOOObOOOE^DQi »OOOdDQOQE*OQ J 

•0000900aE*dO« tO0000OO0E*O0| 

f dQODdOOO£*OD|.^_w«OPOOOOOOE^OO » 
'rDODOoPDOE*oq I i OOOOODOOE*QO i 

. I OOODOOdOE>OQi iDQOOOOOdE*’Odi 
' •DpOOqOOOE*00* lOOOOOOOOE^ODt 

I OOOOpPOOE*OD I •O0D00000£*00» _ 

♦OpOdqdOOEfOOi iooaooooo£*oOi 

..iaboodQooE*oDi«_ioooooQqdE*ooi — , 
’ •ODODOOOOE*POi #pDOOOOOOE*QO» 

. »ooooboooE*oo» *,^.tboOOOOOOE*dOi 

• OOOOpQOQE*OOt . •OOOOOQODE^OO I 
4. •POOOdOQOE*Od t » 00000000 £♦ 00 I 

I OOOOpOQOE*00 I tOOOOOOOOE^OO i 

.. rOCOQdbdOE^OO*-.^ »Q0DO0aoPt*00 » ,-, 

rliOOOpOOOE*ODi »0O000000E*00 1 


^4,^ • DOPOpOOOE*OOi tOOOOOOOOE+OOi 

~ lOOOOoODOEtOOl , iOOOOOODOE*OOi 

bsz6DD0PE>0l > iB 22O0OO0E*0 O? iSI 


i7cOOQODO£»»02 I 

«paoogoooE*ooi 

♦OODOpOdOEtOOi 

,oc)oobDooE*oat 

i0OD0b00Dt^OD> 
.oooopodOEtod » 

vOODOpOOOEtOOi 

_*_iOOCooQoo^‘*’OOi 

vOOOOdOOO^^POi 

, t OOCOpODOE*00 1 

f dODOdOOQE*pO» 

I tOooepoooE^oOi 

I « oooodoooEtdo » 

I i d 0 0 0 0 0 0 0 E t □ 0 I 

i' rboaOpdOOE^ODi 


tQOODOOOQE*QOi 
. •OQOQODOO£*QO|. 
fQODOOOOOEtOO I 

«gooooaoQE^oo ( 

«OOOOOOOOE^OO I 
lOOOQOOpOE^OO I 
»QQQd0800E«OOi 
^.»ODOOOOOOE*Odi . 

« QOdOOOOO£*OOi 
. tpOOQOOQOE^OOi 
fOODOOOOOE^OO I 
t OOOOOOgOE^OO i 
tQddoQoodE*ooi 
^ « pOGQQOOOE^OO I. 
" iOOOOODOOE*O0 > 


, ,OOOOgOOOt*OOi iQddOOOOOE + OOi 

iPOOQOOODE*OOi ■ OOOQPObQE*OD i 

DOOObOOOE*dO i *00P00O0OE*00 i 

I doOOODOOE*OD I lOOdoObOOE^ODi 

iOOQOpOOOE*OOt_^ ■ dOODOOPOE*pOt 

%b00CgP00E*00i «OOOOOOOOE*dOt 

idoQogoooEtbOi__igogoooooE*oOi 
'^•OODObOOO£»OOi fOQOOOOdOE*DQi 


*6odo6E*o2i 

fOODobddoEtooi .. 

•OOOQOOOOEtOOr 
_ iCOoOdOOOEtOOl _ 
iOOOOOQDO£*OOi 
tOPOOOOOOE^OOi .. 
tOOoCOODOC*OOf 
f OOQOOOOOE*OOt ^ 
f OOOOOdDOE*00| 
_ i00aoaoooE*oor _ 
lOQoaaoooE^oat 
fOOOQOOOOE^OOr^ 
fODOOOOOOE^OOf 
f OOOOQOOOE>OOi,^ 

>ooooooooE*oo> 
_.|OOQOOPPOE*00 
i 00D000G0E*Q0 I 
„ fOOQOODOOE+OOl 
tQOOOOODOE*OQt 
_ |OOOODOOO£*00|-. 
tOOOQOOOOE*OOp 
•OODOOQOOE*OOf ^ 
IQOOODOOOE^OO) 
iOOOOOOOOE*Od| , 
ldOOOOOOOE*POl 
MOOOOoE^Ol ♦ 

iOOOOQOOOE*OOl 
iOoooooooE+00 1 .. 
**tOOOODOODE*OPi 
iOOQOaOODE>OOf 
«OOaODODO£*OQi 

#oooooaooE*ooi 

^ •ODOOOOOOE*OOt 

COOOOOOOOE*00 I . 

lOOOOUOOOE^OOi 
fOOOODOOdE^OOl . 
’ lOdaODOOdE^OOt 
__ iOOdOOOQOE*OOt 
•OOOODOOdE*OOi 

9 O0O000Q0E*00 1 „ 

lOOOOOOdDE*OOf 
_ |0000D000E*00 | 
iOODOOODOE*OOi 
_ iOOdododoE*opi 
iODOOOOOOE*OOi 

^tQOoqooooE*ooi„ 

I OOQOOOODE*OQ| 
fOOOQDODOE»QQL 
7 iQQQQD 0Q0E*00 i 


§6 





.4 


rDOOOOqOOE^pD 
V I SGAS \ » 
v isLiq . 

»r» • 

♦ 0 0 0 0 op 0 0 E +P 0 

»QDGOqbDDF>pO 
- ,00000000 do 

roqoooonot^oo 

^tOOOOaoOOE + CD 

.dOQOODOOE+OD 

„tOOOQO.OOOE+oa 

fOPOGOpDOE+UO 
. t Q G 0 0 00 0 C E + 0 0 
fOoDooPooe+bo 
^^_?OOQOOCOOt*^DD 
, tdqoqDOOOE'»^oo 
.iOQOODOOOE^bO 
*0aOOOOD0E+OO 

iOPOOPGDOE+00 

^OdOOpOQOE^'OO 
_ — j ooQooaooEtdo 
f oqooooooE+bo 
lOQODOODOE+oa 

ipboooqaoE*bo 

iQDGOOQCDE^DQ 

yOogopPooe-^oo 

.nnnonfinnr^nn 
»ODOObOOOE+DO 
__W7HCQ» . ¥ 
HTHDlt * 

HTHTC 

' XK : . » / 

t A&OOOODDE^DI 

lODOodboaE+oo 

taPOQOOOQEfDQ 

fOoaooQooEtoa 

tnnQaaQDnr»fm 

rGQOOOQGOEtOO 

lOOGOooaQEtba 

toooaooaDE't'qo 
_ _ •DDDQOQDQEtnn 
YqqooGoqaEtGp 

1 qOOOCOQGEtOO 

lOODObOOOE+GO 

,DODqoQoan+oo 

.dOOOOQGCE*bO 

lODOQODQOE^OO 
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call F2llAlZ|,RUir / ■_ 

■CrA*CPF • , 

RHOA*RHbF ■ ; /' ■. . . : ' ^ ' 

-vi5cA»vi scr^^ 

«THA»rtTHF . * . . 

-'XKA'cXKF' ■ ^ ^ 

CONTINUE . 

-*IF<NPF5T1 I J iNEf IvORiNPrrn 1 INE# I T’’00-Tp‘-6 

CALL R7|B{A(2I }R|2n . ' 

-CpA aCP? j a ^ 

RH0A«RH07|8 ' • ' 

- VISCA«VI5710' 

A7HA»*TH71B . . 

-X)CA*XK710 - — — * 

CONTINUE ' " . . 

-I p lNSFST l rrrNEl-2”n?Rr^l5FT‘l’nTHET2t ww iu * 0“ 

GALL Fans I 21 iR(2l M 

- Cp0*CPF 

rhob*rhqf • ■■ 

- V l SC3»yl 5CF — ^ ^ 

frTHB»WTHF . ' : ■ ■ . ^ ’ 

— AKDxAKF 

I CONTINUE ' . 

-iriNsrsTM ifNE>i>oRiN5rTiji?NE#Tt*"Qp‘7o vx ; 

call R7 l01B12liRUl I ) . 

-Cp8<rp7lB •“ . ■ : 

RHqB»RH071B :. ,. . 

— visca-visTiB’ — 

HTNB»VfTN7lQ ^ : . 

— xkb*xk7 1B — " 

CONTINUE . ' ' ' ■. ' :■■■- ..- 

oeternine hiS5I on phase - . . . 

— p« ^ EhTo oirrn'H ErPf 
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00Z55 

- 002S6 - 
00256 

. - 0025^ - 
00260 
-- 00260 - 
00^62 

- 00263 > 
00270 
00270 “■ 
DD271 

*00273 

00275 

□ 027S 

□ 0276 
--D0277- 

00302 

00303 ^ 

. 00305 


*- 00310" 
0031 1 

' 00312 
00313 

- 0031^ 
003 15 

-OOil?' 

0D3ZI 

- 00323 
003 35 

* 00336 
003 HO 

— 003H3 
003 HH 

' 003H5- 
DD3H7 
0035 3 
0035 H 

- 00356- 


nr* 

“'*01 agnostic 

I 20* 

— I 21*— 
122* 

“ — I 23* 
i 2H* 

12 $* “ 

IZ6* 

—tZU — ^ 
I2a* 

—\ 2 r * — 
J30« 

— I3l«r — 
132* 

-“133*— 

\:3* 

— 13S«-— 

136* ; 

— |37« — 
13 q« 

— 1 3?*- ■ 

JHq* 

\Hz* 

— | H 3 * 

— Hs*— — 
1^6* 

*— JH7*— — 
i*fa* 

|50« 

— T51*~ 
15 2* 

— 153* 

15 h* 

— I 55* 

iSfi* 

- — 15T» 


■ 00367 
□ 0370 

- 00371 
00372 

- 00375 
00376 

- 003 76 
00*100 

- Od'^QI 
□OHOt 

-OOHOi 


- — 165*“ 
166# 

— ' 167*“ 
|6B# 

169*- 

170* 

™ l7io- 
172# 

-3 7 3*" 

174# 


iPHf inXCPHI 

» — THE T^S^ EqUALITT BETWEEN NON-INTEGERS HAT NOT BE‘HEANi{NGFUl.i’’ 

, IrlPHrEQtOLPHJ GO TO 99? 

e-— PRINT A|0|'R ARRAT AFTER COHP 50UUT|ON FOR“r I RS T-PAlSS “tN-NEirf HASE 

lFlKSVpA5*EQiOr GO TO 99999 

C— PRINT RESUtTS AT ENO Op UAST H |SS I ON' PHASE ““ ^ 

T:|HEI>T|HE-0TINE . ; “ 

— -----RRlT£t6|9999B| K5TPA5tTlHEl,0LPH . 

99198 roRHAT(/V///tH0il3H5YStEH PASS n | 15 |9X | 6HTl HE 0|T9fl}HH SECffXt 
—— T- I5HH T5SI 0N PHAS£'**“,F5 i H ' T 

iFiRCHOUTfEOiDt GO TO 9021 ■ 

7000"’ WRlTE(6i9010l - - 

90 I D FoRhATI // ,5H C0HP»3)« | *1HR M l tGX i *fHRl2l t OX tSHR | 2|^ | t?X 1 5 HR ( 2 1 I t 

— ^—27Xi 5HR|65| ,TXfSHRU'lU |7X'|5HRU7) |2Xr ‘ . 

ICNT*NC0HPS 

■ DO 9020 naiTTCNl ^ ^ T ” ^ " 

In*>:i2*n-J } . "..■■■"■■ ^ ^ . ■ ■ ■ " 

— IF u I lK*n tLEidroonro *9020 ~ ""T 

R(«vvnitH . . ; . 

— "-RZ^VtlP^ZI — ^ • 

R20»VM5#n . 

— R 2 1 » V t I S ♦ 2 ■"* “ “ “ ~ 

. R 65*0 « 0 ■ ■ . . ■ 

■ R 66 *^0 f O ^ ‘ — — * T - ; 

R67»OiO . 

— — Iv2»inexk-;v ' ^ ^ ^ ““ — r-“ 

irtivz^GTfOi R65«vnv*n 

lFMV2*GT,n-R6 6*V| IV#2»-— ^ 

l;FMVZtGT,21 R67»VIIV♦3^ ‘ ’ 

— rrRlTE(6t7O30) Ml |R1 i R2 1 R2D l R21TR65 |R66 |R67 ” ^ 

7030 F0RHAT11H ,13,lXM0lG|2|5M ‘ * ■■ ■ ■ ^ ' 

_ jp* jMOTt m - EQtZ.ORrM t£5*B2n ’'GO ‘T0"’905D"‘^ “ " " “ 

WRlTEt6,90HDl V1IV*3HI * 

TDTO^TORHAT 1 1 »BDX76HR r9fl l »T^5T2t5n " " " ^ 

Go TO 9020 

9050"” irm f NEt66I GO TO-^^**" . ’ 

ftRlTEU t 90601 VM V>‘ii tVMV*5l , 

•9D60“roRHAT| lH*,8BX-,4Hnt6a>»'rB:2,5t3Xr4«pUTJ’«TST2?FI-^ = 

7020 CONTINUE ■ .,' ■ ■■ ' . . . ' ' . .. 

■70 JT — COHT t HUE — ^ ^ "* 


ALL TAPEIT 


0L^H*PH- " ■■■' ■ ■ 

IfHoUD-iriXiOLPHI ■ ■...-. 

lPN#6#TPH0LD-6 ^ ^ *“ 

Do 90 So J*1 1 6 

-“OpHNt J1 oPHNAHEt J4lpNI'"^ ; — ^ ^ 

7060 continue 

— - DETERHINE NUMBER OF NEH"TN *OROITER CA0TN“^ ^ 

NhgN»|f tXIVAlUEMQQl iPH|DtOI»t n 

— CAtX SKtNHENi IV16> ^ ~ 

C FINO main CA'SIW heat tOAO COOES MOT IHCUUOE HETABOLJCI 

— 0tABFVAXUETrD07|PK7OTirr~" 


00357 

158# 


CALL PRT THE 

“00360 

— 159# 


C AEL AR5Q AS 

003 6 1 

16q# 


CALL ARSH20 

- 00362 

^“^I61*“ 


Call fcl 

00 3 63 

162# 


If iNF|^OTS»GTtOI c 

“00365 

~|63* 


“CALe SV1PHi2l t6T7”’ 

00366 

16'{# 

99999 

Continue 


D2-118571-2 


U3 

I 

CO 



dOHu3 

176* 

- DQ*f03 — 

- 177* — 

obnoH 

* 17a* 

- DO^fOS — 

“177*^ 

ob«06 

ISO* 

OOTo7 

- j B { — 

OOHIQ 

IB2* 

OONll 

'“183* 

OOHll 

1841 

“DOHVZ 

“18S»~ 

oqV|3 


* OOHJ 3 — 

- 1 B7 ■ 

004 IH 

1 08* 

* 004 15 

- I8?i ““ 

004 16 

170^ 

-^004 1? — 

-“19*'* ’ 

00420 

192* 

00421 - 

• • 1 93 • 

. 00422 

J94« 

- 004 22 :• 

- 195* — 

00423 

|96* 

- 00423 — 

— 1 9 7* 

00424 

|9 8f 

00425 “ 

“ 197* — 

»QD426 

200 • 

0Q42T * 

- 20|* — 

00430^ 

202* 

— 004 30* — 


00431 

204* 

- 00432 -* 

— 205* 

0043 3 

206* 

00434 — 

- 207* “ 

OD435 

20fl* 

* 00436 - 

— 209* — 

004 3 6 

210* 

00437 - 

^ 211* - 

00440 

2 1 ZY 

004 40 “ 21 3» — 

0044 1 

214* 

0DH4 2 *- 

2 15* 

□ 04 4 3 

2U* 

■ 00443 ~ 

< 217* — 

004 4 4 

218* 

00445 - 

-* 217* 

□ 044 5 

2 70* 

•* 004 4 6'“' 

— £ £ 1 ? 

004 4 7 

2 221 

00450 ^ 

“ 223* “ 

004 50 

224* 

00450 - 

— 22s* - 

00450 

226* 

^ 00451 ^ 

—’227*““ 

00 451 

22 a* 

00451 “ 

— 229*“’ 

00451 

23q* 

- 00452 “ 

■^—231*“-* 

00H53 

“OonsN- 

232* 

— 233fr*“ 


c 




— FJHb AVioNKS BAT 'A|R HEAT T^OAOS ID0ES"’H0T“IHCUVPE'TAHF 

QAV i “VALUE * J 024 iPH iOi I / 3 t-^ 0 l • ' ■ " ' ‘ 

-■QAV2*QAVJ * 

0A V3“QAV 1 ■ ^ ■ ' * 

-call SV^QAvit 2 Hi 66 J ^ “ ’ ’ 

CALL SV!QAVZt3Dt66J - 

“CaU SviOAV3,36jfc&r ■ 


O ; 


OETERHik INTEBCHAHCER WATER FLO* 
-TrtCfVALUEU 033 ,PHt 0*01 . 


CALL SY tW lCi33| i ) 

FtflO IHU LOAD FOR EACH"WATER t.DOF'tlHCUTT 
Q|Hu*YALUE * |OHO|PHtO»Q| 

-“'QlHul^q lHU/3 iD - ~ 

QIHU 2 »«IMUI 
— QVHU 3 ^Q|HU; 

call SVlQlHUl t*»S |65l 


o 


-CALL SyiQlHU 2 |HHi 65 » * 
CALU 5 VlQ|HU 3 tH 0 i 65 1 


DETERHINE water LOUP* PUHP f LORS'XKD'POWER^ 
WltPHP«VALUEM 0 H 3 iPHtOiDr . 

I M T I AL12E VfATER 'tDOPnTDR?”^ “ 


Yf33zO»W WPHP-W I C 
"CAI.L SvrW3320i33j2a1 
CAtiL svrwic,6i,ir 

“ npWATT^ 6 YS|/ 3 ,‘*t 3 
CALC SV<WPVrATT,.H3|a5J 


O 

o 

o 

c 


n NO AV I ON I CS B ay- COLOPCT lTrT<t^Tn:^AllS nrmEKJ lO IIAl VbT 


9AYCPl»VALOtUD5Df PHiDiOI/lDi239 
—*QAVCP2“QAVCPI 
QAVCP3«QAVCP1 

— Call svti^AvcPi i 50 f 66 i 

call Sy|NAVCP2i 5| t66I 

— CALL 5 yIQAvCP 3 , 5 Z I& 6 ) 


FIND LOW TEHP PAtLOAD ,HEAT LOAq 

<JLTPL“VALUEil060»PH|OtOI 

call 5vrQLTPL|60i65l , 

DETERHINE FREOW PUHP FLOWS ANO POWER' 
WFPHP"V*LUU1062 »PH,QfO) 

FpWATT»ftrPHP/5000* • { 2700f /3«Rl 3 V 

Call 5VirpwATTi62iB5i 


pETERHlNE HtO BODY COLOPLATE FLOW 


WHlDCP«Q*05C^»AFPHp 
“CAtL SVlWH|0CP,63ill V • . „ 

DETERHINE H|0-BODY COLOPLATE HEAT LOAD 
‘^QHlOCPieVALUE I J06M fPHtd*0) /3iR13* 
call SVI0HIDCP,6H,66I 


(CONVERT TO WATTS! 


* OETERHINE ORB|TER REOUIRED POWER |KH| 
--ObFCKW«VALUE| 2066 »PHtO»Ol 

DETERHINE PAYLOAD REQUIRED POWER UW) 


-PtFCKW*VALUE ( 3066 I PH I 0 »DT “ 

DURING ON- orbit PHASES AS 5 UHE ORB ITER POWER IS SHARED BY ^ 

2 FUEL CELLS ANP ALU' PXyLOAO POWER 1 5* ORAWM ' FORH'A' PED tCATEO' 

payload fuel cell ^ 


’-O0FC»^®OBFCKWF2tO' 


PtFCKapCrCKW 
— I r HPH iO T'f I i-rANor-i pHvt Eym— G 0 “t(r 6 n 5 -’ 


■X 


D2-I18571-2 


DO 

I 

ro 

UD 



— ■ — 

■ 


OOHSH 



~ GDHS6 ”* 

Z35*~ 


oossF 

236* 


□D'J60“ 

2 37 » 


DQ‘<61 

23 a* 


" OOH6Z 23 7»~ 


00*163 

Z4o* 

o 

- QG*I6H “ 

24 1* 


0DH65 

2H2# 


^ OD *1 6 6"'''~ZR 3 

O 

PDH67 

24 h* 


“ aos7o : 

— Z7St“^ 


00^70 

246* 

o 

' 00970^^ “2R7«““ 

00H7I 

24B* 


-'00^72 — 

o 

00 473 

Z50* 


'0047*! 

“25 I •” 


0047R 

252* 

o 

~ DDH75 “^2S3»“ 


0OH76 

254* 


“0047 6’ 

25 5 • 

o 

0047 7 

256 • 


^ ODSqO 

— Z57»~ 


0050 i 

z5a» 

o 

00502 

— 259*“- 


005D2 

2 60* 


0050 3 -26l«“- 

o 

00503 

262* 


”00503^ 

~26 3»*^ 


00503 : 

264* 


0D5Q4 

'265*“" 


00505 

2 66* 


-00506" 

-267*— 


00507 

26a* 


"* oosio r 

— 269*"^ 


, 00510 

270* 


■□0511^ 

27|. - 


00512 

272* 


''00513' 

•= — -273*"''' 


0D5|3 

27s* . 


•‘00513 

- — 275*“ 


005 H 

2 76* 


" 005 IS* 

^277*^ 

. .. 

00516 

278* 


- 005 16 -279«*^ 

■ *■■ '■ 

005 I T 

280* 


00520 

— 291 • " 


bos 2 D 

282* 

i 

\ 

00521 

~ 20 3* ” 

1 

00522 

204 • 

i 

-“ 00522 

'2B5*” 

t , 

00523 

26 6* 


OQ52H 

“ 207* “ 

I.-" 

0052*i 

2Bfl* 

1 

* 00525 

^289*^ 

.1 . . ■ 

00526 

2?0* 


-00526 

— itr*“ 


c average POffER AUL_FUEt CEt US QURING H 0 H OH^OP S IT PHASES 

- — — oBFCK*rDBrcK«+purcKwiya»o '■ 

PUFCK« 08 FCK ' . . ; ; . .. 

-¥rr5“C0NTlNUE 


08H2P»Cf91»VAUUE IRDfifrtOBFCK tO? OMO^FCX , . 

‘OBFCQ«VALUEl5Q66iOBrc:K|OfOr ^ . . 7"^ 

0Drcyr»VALUE«6Q6 6 lOflFCKiOiOl _ . ' ; , 

■^0BrcT«VAl.UE {7066 tOBPC*: |Of p t — 

PLH20«>B<?H>vAtUEt*JD66|PLrCKt0t D>*PirC>t . 

“PiFCQ»VAtPE 15066 tPLfCK >0»D)’“' ' 

PUrcw»VALUE(6Q66 fPWrCK »OiOl _ . . 

"T»ircT«vAU)Ei?o66,PLrcr:tDfO) * ■” ^ 

ASSUME HO OEG T RETURM TEMP PRjH jV C HX t CP TEC^ ^D > *» 0 r27 1 
^ SOLVE FDR ruOft THRU HX — “ - -- 

ObFCM •OBFCO/« 0 * 27 * tOBFCT-HOiOJ r - 

‘'08FC^2BAH|Nn0BFCR,0 BFCRU ^ ' ' ' 

PtPCtVl*=PLFCQ/( 0* 27* HLrCT-Ho iO n . 

“PLFCftZ^AMlNllPLFC* |Pi-FCi?« I J - 

SOLVE FDR total FC-HO FLOW THRU F/C HX AMD ^TORE^V^LUE 

n?650HZ»0A0DFCrt 2 + PLFCWZ ‘ ^ ^ - r 

CALL SVtWiSOl | 65 , I | 


SOLVE FOR AVERAGE- HrxE0-rhLET-rEHP*'DF-7DTAir*Tr=l(B FLOW lo f/t *1R 


T6L0?» C 2 t0«08FCir2 • OBrCT+PUFCR2*PUFCT l_/W6S0l_ 

-CAUL 5VJT6402>6i>21 ' ' ‘ 

FcH20aZ.0»OBH20*PLH20 
-CALL SV{FCH2D,64 i 49( 


O 


O 


O 


o 


O 


ECTIMITE FUEL CELL K« FROM HEAT LOAD DATA ANO CHECK RIJH TABLE DATA 

' — . .r»» » •••»— r T-TT ntrT-ac Ar—3L‘l I *'■ 


”~OLXW» voor* COAVCPl +QAVCP2^0AVCP3*VVr6T^V) ♦VV |267^ IT^WT^^l^TT 

3 ♦QHIOCP^OAFTCP *_ 

-r ♦ V V 1 38 t 9 1 J +FPWATT'ff PWATT'^T QCADVOPlTAlR+^TlXrN'^ 

2 »qAV2»RAV3-»qHU>/3f HU j ♦ PLFCKff 

--tALL'‘SVtQLKAt66i67| " 


FCKVr«08FCKW+PLFCJCW 
“CALL- SV(FCKWt66,60J “ 

Call 5vtPLrcKWt66t7i) 

“CALL 5ViDDFCKWj66irO) 

OETERHHE FUEL CELL WASTE HEAT 
-"qrCKHaZfOFDBFCq^PLFCQ ' * 

Call sviqpcwHv 66,65) * • ' 


FIND HTPRAMU C loop heat LQSS^^ ' . ' _ ; ' . .' . . ' ' 

'QHTOl“V^iLUE t 106 ? tPHiOt O} ■ 

CALL SViQHrOI , 6 ?i 65 l _ ^ 

^QHT 0 Z»VALUEnO 7 l iPHtO»Cir 

Call SV[QHT02*7i,65V * 

- determine OX TGEH RESTRTETOIT'f"EHV:tROHtlEHT^^T 

00?RFVALUEnO7SfPH|OtO| • 


“CAI.L SVH02Rf75i65r 

determine ArS I/C FREON FLOW FROH pIVEtTTER VALV E 
“WrIC’'VALUEn076iPH,afOJ . ^ 

call SVHFlCi76rir ■_ 

— - FIND HIGH TEMP PAYLOAD ’^HX'HEArLO AO' 

qHTPLBVALUEn079|PHf0t0| 

-call SVlRHTPLfTVHSI " 

DETERMINE number OF HEN |H PAYlOAD CABI N 
-NHENP**lFtMVALUEnOBriPHfDfOr+Vn 
CAU 5K(NHENP|8hl6> 


“Tl N ^ EA T“CITA O'^R'TATLU AD“AT^^ DITTO *w CAoiN“ 


Z:\mWZQ 


^ .... 


t- 

CO 

o 


O 


• 00527 

DDSOQ 
005:10 
- 00530 
0053 1 

00532 
OD532 

“ 00533 

00533 
■"005 3 3 

005 3 3 
D053M 
00536 



QPtA I REVALUE UoaZi PH tOeOr - _ _ 

“Call Sv<QPLAlR,B2|66t ■ ' ^ 

FIND HAlN CA81M HEAT LOADS TO BE ADDED BEFORE HX IHLET 
t DOES NOT INCLUDE L I OR* OJT^ FAN LOADS ^ 
RHXlN»VALUEnoaH ,PHtP*OI 

CALL SVlQH)LIN,a*ft65r ^ ^ 

SET GSE HX OLTCOL FLOW .: : 

XG5E«D#0 ‘ * ^ * 


"mri*tr»*44*i**4.HlSStON DEPENPef^tf •**"•*• 


'irUPH,EQfn ftG5E«IOOQOf • 

call 5 VUG 5 Ef 9 l f M 

DETERMINE FLASH EVAPORATOR BYPASS FREOHTLOR" 


^ 00537 

306 * 


DrEBYPft 0«776 4 *rtFpHP*VAL 0 EHD 9 3 tPHi 0 | 0 J 




* t 

- 0 D 5 H 0 - 

00540 

^ 307 « 

JOa* 

C 

cam: SVIftFEBYP, 73 »Z 0 l . 

determine aft body COLOPLATES FLOff 




• 

° oosm- 

00542 

” 30 ?e — 
310 * 


IfrAFTCPsOi 1 309 *WFPHP * 

call 5 VIRAF 7 CP, 96,201 




J 

O 00542 

^ DD 543 

~ ill* — 
31 2 » 

— c-^ 

- OETERHlNE AFT-OODT COLOPLATE HEAT LOAD ICONYERT T 0 "»ATY 51 

q^^FTCP-VALUE 11097 iPH, 0,0 1 / 3,4 13 




1 

* t 

‘ 0054 V' 
Ci 00545 

^ ; 00545 

00545 

- 313 *—' 

31 4 4 


■CiLt~SVI 0 AFTCPiV 7 , 66 J 





— - 3 ( 5 » — 
3 U» 



PETERHINE payload HA FlOOS FOR CM|HFCMAXtt|fO 
PLTPL®AFPH>-«FEDYP*WAFTCP-»ttnC 

•f ’ ■ ' 

• 



0054 6 

^ 00547 

— 317 * — 

3 la® 


-Cdu. sv(«uTPi.iS'?,n • . 

call SVI«FPHP, 78 ,J| ’ • 





- 00547 " 
-> 00550 

— 31 Y»“^ 
320 « 



— — - SET- UP FBEON •LOop-FCoif-THRirTiojt-Ttrnp'PAinroftir-BS 
CALL SV{lflLTPL. 76 , 20 ( 





- 00551 - 
00551 

32 1 * — 

322 * 

? 9 ? 

CoHTtHUE 




‘ 

OD 552 
^ 00552 

' 323 * — 

324 « 


r-. ■ _ ■ . 



6 «t) 

- D 0552 • 
0055 ? 

^ 325 *— 

326 « 

— — 2 — lFlN»NEi 2 l ■ 6 Q TO 250 ” 

C CALC REQUIRED 02 HAKEUp FOR 5 S CABIN 51 H 

• NEN 


L 

0055 4 
0055 4 

-- - 327 *-""- 
328 ® 

RllBSURI I 60 l*WI 1 | 60 I 

C CALC H 2 MAKEUP FOR SS HOOEL , 

■■■ ®NLA 
• NE» 



Rg . . ...... 

00555 
j 00556 

— 327 ® — 
530 * 

250 

-R( lit 1 

CofITiNue 

q New 

. ♦•*54 



• 

j '‘;o 0557 - 

» 00557 

- 331 * ^ 

3 32 ® 

—tt — -\F^U^t\Zi 22 ^ GO TO 2250 ^ 

C f®*** REF ••*• R REUHONTf Rl| I 0 / 18 / 7 S » 

*Ntlt 

• NER 



i □0561 

1 005 62 

~ 333 * — 
334 ® 

"T"' " 

W 3 «Al |)«Rt 72 l 7 CPA • 

W 3 *AKiXl (« 3 i*H J 1 

' ®NE«r 

♦NEvr , 



|g_ 

V '00563 

□ 056 4 

- 33 s® — 
336 ® 

2250 

Rt 66 |«I 4 M 37 ®rt 3 ®® 0 i 592 - 

CONTINUE • 

— ftNEP 

• NEW 


■I 

— ^ 


1 -00565 

[ , : 0 DS 65 

33 7 **— 

:33 a® 

— 2 ? — -tIfINi NE r 27 *AND»N»NE» 3 biANDlNtNE» 4 tr — GO lU XT 5 U ' " 
C •*••* REF ***• R REUHOHTt R|i lO/lD /74 

• NEK 

• NEW 




1 00567 

: 005 70 

. — „: 339 *:^ 

340 * 

2750 

-R{ 66 l « 6 « 4 »A( 1 1 L - 

Continue • • 

■■■: ft NEW 

®NEff 




i 00571 - 

1 00573 

“ 34 |® -T- 

342 * 

— 55 • — 

- iFlNf llEfSB J GO TO 5550 * ^ ^ 

IFIBU 1 tGr« 30 d 0 f 1 GO TO 5510 ^ '* • V , 

" * «NEB 
• . tNEA 



j 

-00573 
\ ‘ 00573 

—^3 4 3 ®*^ 
34 4 ft 

— -c — Dual frlon luup uperatiun ■ ■ 

C REF ••*• R REUHONTj Rl| lO/lD /74 

' »NLPf 

• NEW 




i -00575 

' , 00576 

345 * — 

346 * 


^HI 66 l* 4 bO* 37 *B|M**l 3 H " " . .. .. 

GO TO 5550 

ftHt,ti 
• NEW 



‘ 

f “00576 

r OQ 577 

-“—34 7 *” — 
34 s* 

5510 

SINGLE^FBEON LOOP OPERATrON 
R 1 66 1 * 225 * 5 1*0 111 *«f 402 

ftNEW 
• NEW 




- 00600 - 

- 34 ?*— 

— -sssa— ^OHTlWE-— — - — 


V' 


... 


o t 

I 

o i 

i 

o ; 

I 

' 

O ‘ 

o I 

o| 

c 




D2-I1857I-2 



-..D2-IIB571-2 


B-32 





w 

I 

to 

to 




O 




□ 01 10 
” 0 01 I I '■ 
00112 
-'00113- 
OQl 13 

- do t I 3 ' 

0011*1 

- oon*i- 
00115 

-00116- 
00U7 
' 00120^ 
00122 

* 00123 
0012**; 

“00125' 

00125 

'00125 
00125 
"00126 
OP 1 26 
" 00130 ^ 
00132 
' 0013 3 
DDI3H 

* 0 Q 13 H 

00 136 
“00137“ 

ODIHO 

" 001H2 

001 H3 
"001*13- 

Dpn3 

“001H3'- 

don 3 
“ OOIH3- 
oon*i 
' 001*16 
00150 
"00151" 
qqi52 
' 00153 
0015H 

00155 

00156 , 
" Dpi 60 


20 • 

3p» 

'3|f- 

32* 

33*' 

34* 

' Sse- 

3&» 

■37*’ 

30* 

^39»“ 

40* 

4|*- 

H2« 

-43*' 

*i4» 

-45*" 

n* 

*47» ' 
Hfl* 

' 47*' 

50* 

■5p 

52* 

'53«- 

54* 


COHHON /CASE/ NCAsE|N 1?5C5 GpOUY 10_ 

—common /CASES/ NPLOTS,l?RUN,PPNTO,TOUT,KPRUHiNXY2,KPUNCH,PNCH “ 

Common /F21P/ tpr iRhof i v iscTtY^THF 

—COMMON /PROPTY / CPO I CP 1 4 ? ) , CPCONL , CPCON V i CPC 02 t CPD It , CPOXTrCPTC;i CPOLT"! t" 

I GAHGXS,RHOt),RHOr 99 l iVlSCOrVlSCtVYl tVlSGAS,PTMO,ftTMl 99 1 i^THCONj^ GPOLY 12 

-r PTMOtL,WTMTC,X 1CO,XK1991 ,AKGA5*AKUq,Vl5LlO ' " "" " " GPOUV 13“ 

•COMMON /SOURCE/ A U 9 ) i 0 M 9 } t CP A | CPO , 1 A I t I B I | NA f N8 | NPPS i HPpST C61 t GPOU Y 14 


-I* NSrS I N5FST 1 6 I I RHO A | RHO0 i V I SC A | Y | SCB i nTMA tR7NB r^K A | XXB' 
Common /pow/ Poir^;^'i 


-GPOLT ’15' 
GPOtY 16 


"C 0 MH 0 N/ 5 HUTtE 7 PHrtPH 7 tICPR 7 *IPriDtD 7 TrNET,' 0 FKNi 6 ) 7 HPmr 

common / VI OC/ 1 Pi I S tic 1 1 Q 1 1 V 1 I VT I A I I NEAK 

“DATA NX/l/ *’ ’ 

.logical POWER 
-OlMENSiON VlUiKm' 

Equivalence iv,ki 
—LOGICAL' steady 


GPOLY 17 
"GPOLY^IB" 
GPOLY 19 
"Gpoinnnr 


L INIT TA^I^E H AFC EE COUNTER AT* START ‘OF* TRANSIENT; 

c ' 

f not •STEADY •AND,KSYPASiEQt or NX»r 
C SHUT off one pass PRINT OUT 

■TWiME* 22 T co' To azso*- 
Call SKnoot 22 i 101 
“ 725 ir“^DNTlUuE *“ " * " * 

ir lNrNEt361 GO TO 3650 


• r 32 


store A&'e AY STRUCTURE TEMP I K COl^DPLATT^tOKP ’ 
CALL Svmai 1 ,S2|60» . . 


"35ST3 — CONTINUE - — •"' 

56 l.rlN»NE.56 ,ANDf NtNE?57l 

— — Riesnoto 


GO TO 5657 


R 1 701 *QiO 

— ^ 5U0LIHATOR* STEADY- STATE** SIMULATION” ^ 

ASSUME A HA WITH CMIN/CMAXj«D»Qj CHAX«1CE SIDf AT 32 F 


OEPENpENT*********" •»••♦•••••»•• 


in |PH,HE«2>AM0f IPHfNEOiANDf | PHtNEf I Of AND • | PH,NE * 1 9 1 GO TO 5657 

“irUU 1 *t£t0*0) 60 TO 5657 

CHIN«A| |I*CPA 

'R| 6B I •* 1 * 0-H XP 1 1 67 1 / CM I NT"'"" - 

R|65l«CMlN*Rl6fll •l32#qwA|2l 1 

R lZnATZl tRlGS I/CMiri '* * ' 

Rl70l=»-Ri65J/R(69J / 


•5657' Continue 

5? lFlH*NEi57l GO TO 5950 

'irlNSTRI UJ fEQ.OiANP* tNOTf STEADY) GO 70 "5950" 


o 


o i 


o 


o 


o. 


0016 2 

. 

‘ QLOAO*VVUOi6Sl 





00163 

>0I>GN0ST1C 

• THE test for equality BETWEEN NON-^ 1 NTEGERS HaY NOT BE HEANINGFULt 





00163 

— 6q* 

- IF tQL0A0*£Q«0*0J GO TO 5950 

, 

* 



obits 

61* 

Ir UB5( 1 f D-R1651 /QLOADl .GT»Q*03I NEXT^AO V. 





"00167- 

-V. — 62*'" " ■■■■ 

■“S?S0"CDNTINUE ' . . 





00170 

63* 

&5 |fIN»NE*6Sj GO TO 6550 





00172 

^ 6 H • 

If 1NS7RM61 »EQ*O>AN0f fNOTfSTEADYl 60 TO 6550 





00172 

\ : ^S* 

C FORCE convergence OF MEAT LOAD AND HEAT TRANSFER FOR 5T.EADY STATE 






0 P 175 

■' 0017 S- 


•0 


lAaNOSTU* THE test FOR EQ 0 *LITT BETWEEN NONwTHTEGERS H*T HOT BE HERNINCFUE* 
~i T ■ •-lnOt-'t>AOVEB 70 TOr~GO~TO"t 550 ~ “ 


ZM^iW-ZQ 


00177 

T 00201 ^ 
0020 2 
.-OD20S- 
^ 002DH 

“ 0D20i ^ 
002 07 

O ' 00207 *■ 
0021 1 
"^00213“ 

O 0021*1 

‘ 00216 *- 
00 2 16 

^ t 00220-' 
00221 
^00221— 
Q 00223 
*00225 - 
00226 
002 26 - 
^ 00226 
^00226- 
O 00^27 
^ 00227 - 

00227 

r\ ‘ 0022 7- 

^ 00230 

- 0023 2 - 
00233 
0023*» • 
002<36 

-V 00237 - 
00237 
^ 0023 7 - 
0023 7 
00237 
002*10 
00242 • 
00244 

- 002 45 - 
00246 

' 0024 7 ■ 

0025 0 

• 0D2 5V 
0025 1 

100253' 

00254 

00255 

00256 

00257 
* 00260 

* 00 261- 
00261 
00263- 
00263 

-00265* 

00266 

, — OP26fr- 


66« 

69**'^ 

7 0* 

—717— 

72* 

— 73 *^ — r- 
•qi A gKOhti 

' 75 * 

— 76 *^ — 
77* 

7a» 

797 

BOf 

fOl AGN0ST4 

— 0 1 ^ 
B2* 

8 3 

049 ' 

— 05»'^— 
869 

— 07»- 

est 

— B9*— 
9Q9 

— 

7Z9 



— 75 — 

96* 

— 97* 

90* 

— 99 •— 

100» 

— 

1P2* 

— i03t — 

10 4 9 

— I D5> — - 
106* 

V— 107* 

108* 

109* 

|10» 

-7-1 — 

112- 

--m* — 

\lHP 

— ns« — 
i u* 

— U7*^ 

lie* 

— 1 l96~ 
120» 

— * I2l*> 

•DIAGNO 57 

^ 2 29 


IrUBSn tD-Rl65)/QUOA01 •GTtOt031 N£Xt«66 _ J _ 

— 6S5D- COM! IMOE ' ’ - > 

6a lFtr|iNE<601 GO TO 6850 * 

-T IrtNSTRl I&l rEQtOf AND. tN0T*5TEA0Yl OO'TO 6850 ” ~~ 

X FORCE CONVERGEMCE or heat LOAD , and HEAT TRANSFER FOR STEA pT STATE 

"QLOAO»-Vy i67 I 651. * * - - 

C« The TEST FOR EQOAUlTt BETWEEN NON^INTEGERS HAY NOT B E HEANlHOF lILf 

JFTQLOAOtEQ.OtOl <*° TO 6050 ‘ 

1F(A0S{ 1 r0-Rl651/Ql.PAPUGTtQ»03 l N EXT»69 

—6:B5iQ'^ CONTINUE " ' " " * 

70 lFlN*N£f701 GO TO 7080 

- IFINSTRIUJ |EP,Of ANO»*NOTf5TE6DYr GO TO 7050 . “ ' . - , ^ - 

C FORCE CONVERGENCE OF HEAT UOAO ANO HEAT TRANSFER FOR STCAOT SJATP 

— «tOA0*-VV171 >651 

C<* THE TEST FOR EoliAUlTY BETREEN NON-INTEOERS HAY NOT BE HEAHlNCFUUt 

— ^ — ^iFlPEOAOiEOiOtO 1 GO TO 7030 " ' 

IF UBSt 1 *0-Rt651/QLOA0l »GTiDi031 : NEXT^Tl^ . . . 

— 7D50"COWTINUE - 

•* SET UP RADIATOR RETURN TEHp ANp FUOff 1ffHEN‘-RADTATOR“XOOP^:5 

C NOT SOLVED ' ■ ''' ' .■ ., . . . ' ' ■ ,1 ' '' ■ . 

— ^ — — CAUtr svlRti HTvn I"' — ^ 

TrOUT«40* . :■* : . ■ . 

c »9»99*tt«»»»<D9t9HlsSlON DEPEHDENT*9f ", 

lFn PH. tti4,0Rr IPHrGTi 171 TFQUT-R12I 

^CAtU SVlTr0UTl97|21 — : — : 

7080 continue ■ ■ . 

— 72— lFlNiN£.72) "GO TP 7280 

R{6Sl*0i0 " : ' • 

— -R|69i»QiO -- - - : 

C ■ NH3 EVAPORATOR SlHUtA TlON 

^ OEPENO£NT9*p9«0*»»»»»*«»>o*» »»» 

iFlIPHiLTOVi GO TO 7273 

— IrlAUlfLE.OtO) GO TO 7273 ' 

CA"A1 1 1 VCPA 

— -*QrEqP«CA*1A12)-40<0» — ^ ^ 

UAREQO*6»0»QREQD/70fO 

— E.FF»ItO ■ ^ 

Rl2 |«4QtO 

lFiuAREqO.LEiR|67M GO tO 72 JO . “ ‘ 

C DEGRAOED PERFORHANCE -- NOT ENOUGH UA TO HANDUE HEAT l.OAp 

« 2 J ** ICA*A 12 J-<5«0«R167 H7tPA9Rt67i/6*»DI ^ ^ 

EFF’"fU67i/UAREP0 : . 

— 7210 Ri65J«CA9<ri2)-A|2) 1 ^ 

n|69J«-Rl65J/lR(60)*Err| _ 

—7273 CONTINUE " ^ ' 

7280 continue . ■■•.■■ '■ ■ 

78 lFtN*NE97BJ GO TO 7850 
— — IF1NSTRM6J pEQiOfANOf tNOTiSTEADYl GO TO 7850 
c Force convergence of heat ioao and heat .transfer for steady state 

— — 0L0AD«VVl79,65r ' . - — -- 

ic» THE test for EOUAUTY between NONt-lNTEGERS HAT NOT BE HEAHINGFUE* 

— — — HHDUOAl7rE0*0-iO) GO-TQ-^roStr “I 






B-35 


0027 p 
^00272 
00271 
- 00273* 



00275 

U7* 


" 00276 

— ^I Z3« “ 


002 7 7 

179 ■ 

n 

^ 00300 

^^I30»- 


00302 

I3i* 


"''00304 

“J3 2<^ 

O- 

DD3pS 
003 0 6 

133* 

”1 3 4« - 


00307 
•' 00310 ^ 
D0312 
^ 0034 3 ' 


00313 


003 15 — 

I 

00315 


’ 003 15 - 


00315 

' T43f 

T 003 I 6 — 

1 44^“ 

00320 

IMS* 


irt ABSll ,0-RU51/QU0AD| fCT«0tO31 MEXT»77 

"CONTINUE *' " ~ 

lF«M*NE*a2J GO TO 8250 

• retur« CAS tehp trdh patloao-cowparthent 
R| 2|«75t * 

‘R 1 66 1 - A M ) KP A M R ( 2 1 - A ( 2 H~ 

CONTINUE 

GO TO 8*150^ — 

iplpSTfM I6J .EptD»ANp*tppT*STEAt>r> CO TO flHBp 
”Tc^B2»TCAbI 

TCABl»VV 42 f 10^1 ’ i 

'TTOU2,0/rL0ATMTER2*2l 

TTOL-AHAXI tOiOSiTTOU 

-iru054TCABi-TCAfl2itGTnToirrKExT*o ^ 

Continue 

-IrtNtNE* ?or“G0*'TO“7O5O*-'’ 

set cPt preon outlet tehp if phase X 

*R[65 l»0«0 ^ — 


003 2 1 ' 
0032 2 
00323 ^ 
003 2 H 
00325 “ 
00325 
' 00327" 
003 3 0 
00331“ 
00 33 3 
”□ 0333 “ 
00333 
00333 
i 00335 
00337 ^ 
003^0 
0 D 3 R 
003 H 2 
003H3 
OVIHH 

□ Q 3 *J 4 
O03M6 
00347" 

□ 0350 
00351 
003 5 2 
0035 3 ' 
00353 
00353- 
00355 
00355 
00355 
00356" 
00357 


—} H 64 - 

~| 50 *" 

iSl« 

153'5 

~|5H»^ 

j 55 » 

— -| 56 «^“ 
15 7* 

— J 5 B«" 

|59* 

“|6 0«- 
K'J • 

— 162r- 

|63« 

— | 6 H* ' 
165 • 

-“*|66*- 

J67» 

— J 60 «- 
I 69« 
17 o»^ 
17 p 

— 172 «- 
173« 

— i 7 *js- 

Us« 

I 7 h *- 

177» 

— na«- 

|79# 


» » • • 09 0 • 4 « tmm * • H rssrON OEPENDEHTi« 

"TF riPKiWETTF'Ca TO" 70S0“' — ^ 
RT 2 p 35 fO . 

-A * 2 I «y V 199,2 I ' ^ 

Call F2I ut2i ,ri2J j 
’R| 65 J »A 1 1 J fCPF«lRr2l-AT2n 

continue 

■“I F r N * N E . 9 2 } ^ ZQ" TO” 9 25 O' 

flash evaporator SlHUtATlON 

"R{65)»0*0 ‘ “ 

R| 6 yl«OiO 

■ rr u 1 1 } I LE ; 0 . 0 j * go to * 9 zso * 

IFI Al2I f UE.RQtO) GO TO 9250 


■MISSION OEPENdENT* 


IFI |PH,EQ, I ,0R, lPHrCEf20l GO TO 9250 

“CA»AIIMCPA - ' 

QRCsP»CA»(At 2 pH 0 *D) - * 

*'ErFi>1 • 0 ' *' ■ 

UAREQO*gBEQD/10«0 

^-Rt2)*4Q»0 

lFlUAREQO*LEtRr67)) GO TO 9210 

> OEGRADEO performance NOT ENOUCH“UA-tO- 

R|2| »KA*Ar2J+30#Q^Rl67l }y lCAfRI67l I 

■ -^EFF^Rr 67 J/UAREQ 0 '*“ ^ ^ 

7210 ^l65l»CA»IHl2J*'A|2M 

-ft tr.j )jf^R ( 65 j 7 |Ri 68 J •EPH'^ — 

9250 CONYVHUE 


•^rTNlH rt WCA ST 7 ‘'"'‘C O' W '7979 

“rTER 2 »TT£R 2 ^r“'“ 

reset ststeh t the increment 

-OTtijt^nr” — ^ — — 


- 00357 - — -tSO< 



D2-II857I-2 


00357 
•^ 00357 — 

00 3 & ( 

. - ^0 36 2 — 
303 6 3 

r 0036H 

00365 

> 00366* 

003 6 6 

“ 00366 “ 
0036 6 

- 00 367 *■" 
: 00 370 

> 00372 - 
00 373 

- 003 7 H — ■ 
00375 
00 37 6 ' 
003 76 

. ODHOO 

□ 0402 
- ODHOH — 
00 405 
^ 00406 — 

00H07 
00410 
004:11 
-Od4 12 — 
00113 

004 I 4 
004 J S 
QQtJ i 5 - 
004 i 7 

-00417 - 
00417 

- 004 1 7 - 
> ^ 00421 

- 00422 - 
00423 

- 004 24- 
004 26 

- 00427 - 

: 00430 

- 00430 '*■ 
0043 1 


■ IB2>— 
183* 

“1841 • 

1B5»^ 

IflJO 

“las*"^ — 
189* ’ 

>14 07' 

19| • _ 
'I 92 • — 
'193* 

- |9H*::~^ 
195« 

197* 

P16GH0ST] 

l9ot 

1 99 ♦ 

200 * 

202* 

-203*^- — ■ 
204* 

^ 205«‘ — 
206* 

- 207* 

20B* 

- ZQ?*^^ 

2 1 0 * 

^21 i* — 

2U* 

- 213*- — 
214* 

- 215* — 
216 * • 
217* — 
218* 

— 219*~- 
220 * 

221* 

222 * 

. 223* 

22H* 


|FUCHOOTiEO»ai GO TO 9999a 

-c— PBINT SCHEHAtjCS AFTER EVERT STSTER PASS* 

TlHEI»7 IHE 

— -call ARS0A3 ~ 

C6UL ARSH20 

— Call FCL — "> : ' ■ ■ ■'*' . 

99998 Conti K uE , 


> — — find ^ppTT"BATrO'*TPR” CAB TfrinEHr^'^ONTROlTTACVE ^ 

TcAB*VVt2|lD4| 

"TsEt470v0 ■ - 

lF|KSTEOYrEQ»0»AND»»NOTr5TEADYJ GO TO 8635 - 

-Call HAFCEE15RB6iT5ET»TCABi0t i* 6786| •0S|MA|5RUtSRHfll5TR| 

GO TO 0650 _ ^ : . ■ 

-C0NTI7UJE < 

Sr 86*VV I 86 I 65 j : 

E test for equality RETTfEEH NON- INTEGERS KAT HOT BE HEAHlHGFULf 

IF VSRa6iEQf Of Oi ANP*TCAD*GT»T5ET J GO TO 8650 

-lrtK5YPAS»EptOl GP TO 8636 
IrnCABfLTf T5ET fANDi TC ABO i tT « TSET 1 GO TO 8640 
•-CONTINUH — — * ■ 


' CALL^EST IHI5R66iTCA 0 | TSET tSR860|TCAQO|T5ET0 |i *0 i I tERtiWStRtlil 


-B640 — 
8645 


GO TO 8645 

SRB6»AHAXI lorOSi ll005*SR86l 
CONTINUE 

5r 86«AH I Nl ISR06 iO#67C6 1 

Continue 

■CALL SvT5RB6l86t65I * 




-IriKSYPAStECJiDl - GO TO 9999? ' 

IrlHOOUCSTPASi 151 iNEtOI GO TO 99999 

V _^ perF 0RR-10 SY5TEN P ASSEs^ I N EACH' H I SST Oft-p«A3E^KEN^<-‘'-“7" 

2» FORCE I HOPE SYTEH PASS AT £H0 OF OUO H|S5lOH 
• • ' - PHASE TO SUPPUY PLPT'DATA“ ^ ^ 

PHliiPH*t?D 

PTrH£^VALUEmTVPHl |Qtpl-*TlriE*OT|HE— ^ ~ 

ItER2»1 ______ 

-T” I pi NPLOTS^mn CACtr-TATEtT*^ T 

NX* I • . . 

79999 CoNTTNUE’ ’ 


return 

End 


"CP0LYV94 ■ 
GP0LY175. 


ENO-Of'-^CO HP I L AT 1 ON 

GP0LY2- ^5 ►v.-pVHBOLlC ; V| 
-GPOLY^— CODE— RELOCaTADEE^ 


I. * »|r Vr»M7*5EP*tf i>l3|33|21 f 03U1?40- 

— 19 SEP' 74'^T3133UI I " D317D204 

0 0317D330 


[ I4*v 254r.< iDELETEO} -tAA'H 
BH - I - tOEUEtEOJ 
H 74 


1 


D2-I15571-2 


I 


r 



02 - 118571:2 



APPENDIX C 

OUTPUT G-189A DATA FOR SHUTTLE ORBITER 
MODEL-BASIC UNMODIFIED CASE 



H 1 1 i I ! ) I 





X 1 I 1 I 1 i . I 



Nl ' i-.- ■■■ I I • . : i - .1 : 



Nt 


D2-I18571-2 


I . . - I 

f K K »< X f< H K n •< K « jK *< »< 


I r* ^ o « o « 
•e *o IT O »n 
^ -* — o M O O 
» M a . «» * i 


faj X iu ijc ^ a 

•e^ ji << ^ o 
fi. r X -c 
iM in 

«>4 O < f>i inf 
o Ll 19.0 3: c« 


K K >«iK « *< 


O O OO 

M O *> D <a 

^ oa .«* p' 

> ir ge n 


« » » o 0 ■ 9ilk 
19 10 I* 

o >>.>•« <l< 
^ < i' 

kJ cn ic X e: 

c i-<n ji m 4/> o 
« «; ui or (9 o o >* 
uiu X iv» 


[ I 1 i, .'..l.d 

tx KtK. K t< K.x X X K K X X X 


I ; I . y 

X X X K K X X X XX X X X X K 

X X i ‘ 


K • 


X' — ^ 
X r> 

X « «l 

X K ^ 


J I ! I I I I r I ■ . y ^ 

KX XXXXXXXX.XKXXXKXXXXX XtX XXXKKXXX af« «XXXXX>^X 

H I . • k 'll z° \ zi z >. ^ z -i * 

s *-r " - 

X ^ * li ? f i i s CD / £ 2* i* i £i X 

S ox {VoS^® l t mSS? [<xx :£|S * I xXx j~^Sr ♦ xoxx o 


X r> O ST 9 t • • I ^ 5 *a 

;X «ift l—l XtfVI**iJ X 

X >>• — »-.x — npfx 

xx o — < 

X fO SB > r> p « » ! X 

X — az • • I K 

X X tft a: *• i »* t*. » ^ 

X 04 # S ,0 XCfC 9 |[«« « IS 

H - — a: — a- I l! *5 ^ 

X X ui I- a*» — X ^ 

X — Q S t P t * X If 

X >■ X* K- 

X X tb^mc »**inors 9 *x 

X X. X. X 9 *9 2 i S* n> ft » X c I 

X o sn t ^* X 1 » ' 

X «J O » — 4 w ■ S ft* X- i 

X ( • Oil-»J X t 

X 1 * ! S ' 

X J I — — K, : 

^ f !< ■ |- 

X X X X X X X X pj X X X X X XjX ^ 

X 1 < << X X ! X • • 

X I 1 X •« di 

X } IT X ‘ * X - ^ 

X t X 

X o x • X » n 

X * N t I * X 

X fM Q a" ft ft • * 

X la 1 » 1 - I xui ft* X 

X f ^ X — 1 -» ft* X 

XX I Ift IM — ft* X i 

X p> SS .ftoXPMft X » 

X — ft ^ X ft ft X . 

XOIA Z •• ft H ‘ 

x«^W xooft-'ftia^cfcs: 

X*-— X— a- ft 

X X Ll>- ^ 1 — -•-•-•ft* X 9 “ 

X o ft^ ft ft* X J. 

X — O S I • K ft* X I* 

X a- -S = r ft* *< 

X X «. X ft — tfl O IM ft • *< ■ : 

K X XXllMXxeaft* X U 

X o irt I* o X >* « I-: 

X f «-» o * — u. S » ftj X j 

X » * pr i~ ft* X ‘ 

X : ft ft' X 

^ I 2 

X X x"x X X X X X X X X X X x'x X 

X : ^ ^ 

XI < XX XX J X • • 

X > * X X o 

X 1 a- X * X 

fc* f • » X r* 

■ 2 ■■ ^ ■ .. • . ■ ' ^X • • •.. -^- X- n s. 

X . — K ft ^ — — ft* X s: ft- 

X » X I ft* X 

X — Oa* sft ••.iwttftfttetK 

■ X ■ ’ X iS ' w ft ' x Mi iw ..ft* X ■■ . 

. X >- — • . • ■ ■ ft- ^.- X — '.n ft ■ ■■ X . 

X X I «»; CM — # » X 

X m a m ft IM — ft X ft* X 
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APPENDIX D 

INPUT G-189A DATA ADDED FOR SHUTTLE 
ORBITER APPLIANCES 
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ambient WALL TEMP (F) 

_ radiation conductor, outer SURFACE"TO"WaLU . 

“ ambient structural connection temp if) 
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AV bay 3 return 

AV bay I Supply 
AV bay 2 supply 
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avionics bay GaS HEATUQADS IBTU/HR)-. 

AV bay 1 
AV BAY 2 
AV bay 3 

.ORBITER cRE'I'' module temperatures (F) 
CiAS supply 

gas mixture ■ • 

GAS mixture DEW point 

.ORBITER crew module hEaTlOaDS (BTU/HR) 
METABOLIC 
EQUIPMF.NT + WALL 

(PAYLOAD cODLANT TEMPERaTuReS IF) 

SUPPLY To P/L 

RETURN From P/L 

.PAYLOAD HX heatload (BtU/HR) - - 

oFUEL cell coolant temperatures (F) 
supply to f/c 

RETURN From f/c 
•FUEL CELL POWER (KW) 

total power (KW) 

PAYLOAD power 
ORDItER pOwER (Kvjl 
.FUEL CELL WASTE HEaT (bTU/HR) 

•avionics bay coolant Temperatures (F) 
AV bay 1 CP inlet 
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dryjohn Fluid flowrates lb/hr 
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collector out . 

urinal in 
urinal out 

•DRYJOHN Fluid temperatures «•* deg f 
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collector contents 

dryjohn Drying process parameters 
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AIR OUT . - 
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common /COMP/ OSl 351 »Nni ,HC*NCABtNCFLt^EXT,HEXViN»C, 


COMMON /RARRAY/ lnAXR,R(ll — 

common /ECL^ri/ XCHOU7 , KPRHT , KPT 1 NV | N | » Kfl ! T i KW I T I • K" 1 T2 , 

KttlT3,Knlt ,«UFF*KSTEDY 

common /kancv/ k ^ ^ 

COMMON /Misc/ DTIME.GRAV ,kFLS Y5 ,koutpt * kpdROp • ks YP AS * kTr ANS . 

LPSUM(S) .MAXCI ,HAXLP*MAXSLP,HAXSSI » NCOHPS , NEV»DT , WL AS T , NpASPO , 
MINSSI ,PGHlN»PLHlN, start, STEAOY>T lHE*Tl«EHX,THAX*THlN,ftTKAX 

common /case/ NCaSEiNRSCS 

common /CASE3/ nPLOTS,KRUN,pRnTO,TOUT,KPRUNiNXY2,K®UNCH,PNCH - 
common /F21P/ CPF ,RHOr tViSCF ,r#THr,XKF 

Common /PROPTY/ CPO,CPi9Sl,CPCONL*CPCONV|CPC02,CPO!U,CPOXY, CPTC, 


*gpoly 

GPOLY 
. GPOtY. 


COHMON/R7taP/ VlS7ia iCP7l a,XK7l B|HHO7lB,ftTM7l0 

common /source/ ACI91 ,CPA,CPB.lAl*l03»NA»NBtNPFS,NPrSTC^I 

NSFS iNSFST (61 , RhQ A |RHCB , V |S c A ,V I SCO , ATM A , ftTHB , XKA »XXO 

common /POA/ POAER 

common /VLOC/ IP,lS,lC,lO,IV,IVT,l£X,1MEXK 

CCHHON/5hUTLE/PH,lPK,OLpH,IPHOUO,T|MEJ ,OPHNC6l ,NPLTS 

COMMON /APPtMC/ HPH, EPH, NT I HiOCAB 

LOG tC AL POftCR . . — - 

dimension vm ,ku I 

DIMENSION PHNAKEU38J ^ - 

NPLT5-NUH0ER OF OIAGRAMATIC PRINTOUTS DESIRED 

Data nplts/2/ - 


tGPOUY 

GPOLY 

GPOLY 

GPOLY 


•MISSION OEPENOEWT* 


Qom 

36# 

1 i 

00133 . 

37# * 

1 

00133 

30# 


00135 

39« 
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00135 

90# 


00 J 37 

u 1 * 

1 

00137 

92. • 


00191 

93« 


0019 1 

99# 


00193 

95# 


00193 

96# 


00195 - 

97 r -- - 


00 195 

H 8 • 


001H7 

H9# 

1 

00197 

SO* 


00151 

51# 


00151 

52# 


Og i ^3 ! 

' C 3 * 


00153 

59# 


00155 . 

55* 


00155 

56# 


CO 157 

57# 


00157 

5a« 


00161 

59# - - 


QQ16 1 

60# 



DATA IPMNAMEm 

I 6 HCOUUTO 1 AM0«N-LA , 6 HUNCH i6H 

.Data (Pkname ( n , ii.7| 12 >/ 

|6HASC£NT,6H to I N ,6MSERT I 0 > AH^ 
Data (PhNaHEU J , 1b13,ID)/ 
16HCQAST ,6HT0 AP0,6HGEE i6H 
data cPmNAHE t n » l»19 i2** j/ 


DATA (PKNAHE U J , Iip 31 ,3&J/ 
AHHEIGHT*6H ADJUS,6HT |i 

DATA IPhNAMEI I) ,|« 37,H2I/ 
6HRENOE2 .AHVOUS ,6H «i 

Data [PhName n j , l»H3f 98 j /-*- 

AhOnCKiNtAMG ,6H »i 

Data iphnahe ( n , i«99 ,5r 1/ 
&HLSO HE t AHFURR IS ,6HH OPER,, 
DATA «PnNAMEn ) , I*55t60l/ 
6HSEPAKA »6HT 1 ON ,6H i 

DATA (PhNAHE C n , 1 ,66 I/- 

6HORBIT ,6HTRAN5F ,6hER , 

DATA (PhNAME ( n , I -67 ,72 1/ 
6 hS0RTJEi6K opera ,6hT I ONS , 
data [PmMaHEI n ,I«»73 ,70 »/ 

AHS0rmf,6K OPERA ,6HT lOJiS , 

Data (Phname n ) , I «79 ,oh j / 


|6H OOH 1 |6K0K 005/ 
|6H OOH ,6H9H 555/ 
,6H ODH 235/ 

,6H OOH lt6H2H 2HS/ 
,6H I8H 3,6H5« 595/ 
|6K 3H 5«6H9M 305/ 
,6H IH 3 i6H7H 235/ 
,6h 1H 2.6H5M 255/ 
5|6H 20H C,6HnH QOS/ 
,6H 2 h <i,6H0H 105/ 
,6H 2H I ,6H0H 50S/ 


iy'o 


2*lZ98ll-ga 


TO3EI3t> 


00)63 

6)* 

data 

(PHHAHEH ) I 

Iwl 

00)63 

62* 

)6H50RTIEi6H OPERA, J 

00165 

63* 

_OaT A, 

jphnaheu ».» 


00165 

64* 

16HS0B 

tTlE*6H OPER 

A,( 

00U7 

„65* 

DATA 

(PHKAPEll) • 

1*' 

00167 

66* 

)6HPHAS IN .6HG 

• ' 

. 00171 

67* 

Data 

{PhNaNEM 1 , 

1 JS 

0017 1 

• 

16HDE0RB1 i6HT 

■ < 

_ GOl 73 — 

69* 

_ DATA 

(PhNANE cm, 

I B 

00173 

70* 

I6HEN1 

rRY ,6H900K 

T,- 

^ 00175 

. . .71* 

data 

tPHNAHE 11 » • 


00175 

72* 

16H0ESCEN»6HT 47K 

• * 

_ 00177 . 

. 73* 

DATA 

IPhHAttE ID* 

1 * 

00177 

74* 

16MF1HAL ,6HAppR0 

A , 

__ 00201 

75* 

Data 

iphnamei n 1 

I V 

00201 

76* 

l6hP0LLCU i6HT 

1 


?1i96»/ 

6HTIOHS 

97#102»/. 


i&H Z*iH 

^6H 2tT 

»&M |6H 


00203 

00203 

0020S 

0C2O6 
00207- 
0G207 
00207 
00207 
002 1 1 . 
002] 3 
Q0214 . 
00215 
0021 6 
00217 
00220 
QC221 
. 00222 - 
C0224 

00225 

00226 
00227 
00230 
0023 1 

00232 

00233 
00235 

. 00236 
00237 
. 002HQ, 


77f 

7B* 

79* 

6Q% 

_.B|^ 

B2« 

,.B3* 

bh* 

__ 85« 

66* 

B7» 

ea» 

. 09* 

90* 

^ 9M — 
92* 

93* 

94 • 

95« — 
96* 

_ 97* 

90* . 

99 • 

ICO* 

101 * 

102* 

_ IC3* 
104* 

_105* 


l6hf?0LUCU i6HT ,6H i6H i6H 

Data iPhHahe { i > , i»i 33 » 136 i / - 

I 6HP0STLA f6hN01 KG ,6HT0 G5E»6H COMN i6H 

EQUIVALENCE U»K) 

LOGICAL STEADY 


0i 6H0H 
0|6H0fT 
i «6M0H 
4>6H3H 

3i6hOH 

i6H3K 

,6H2H 

' i6H2‘; 

1 t6H3H 


.GPOLY-^Z- 
GPOLY 23 


CALCULATE JHTEURATEO. AVS.PBOPERTIES-FOR .FHEON 21- 
‘ IF1»PASS.EQ*0) go to 10 

IF 1NPF5T tl I •NE«2 •OR* NPFT? H •NE«2) ^60-10*5 

' CALL F2l 1AI2I ,R(2n 

_CPA»CPF — 

RHOAhRHOF 

. Vl5CA»VtSCF-- 

WTMA»»:THr 

_XKA»XKF — 

i CONTINUE 

_IF (NPFST 1 1 J •^HE»4^>0lt>HR£ T< 1 1» NC > 1 ! ■ G O Tfl .. 6 ■> ■ — 

CALL R71B{A12) |R 12)) 

, CPA3CP7 Ifl ■ - 

RH0AwRH07|S 

_ V )5CA»V IS71B 

VfTHABttTM7I 6 

_ XKA-AK710 — 

CONTINUE . ^ « 

.. IF 1 NSFSTl I ) *NE*2 .jORi_K5Fli-LL*MEA2J — CO-.TO-J.Q, 

CALL P2l 16121 ,R(21 1) 

„.cpu»cpr ^ 

rhod»phcf 

_V1 SCO-VISCF — ^ 


0024 1 

106* 


«T hb«a thf 

D024Z 

107* 



xkb»xkf 

00243 

lOP* 

10 

continue 

_ 00244 . 

109* 


IFlNSFSTlIl*! 

002M6 

O n ? tj 7 

1 10* 

1 1 1 * 

i 

r 

CALL R7|BcDI; 
..CPBaCP7lB 

, — U U ^ ^ 

00250 

1 1 2« 


RHUQ»RH07 1 6 

QC251 

U3* 


V [Sca«v iS7ifl 

00252 

1 14* 


V<T«RbATm7 1 8 

00253 

1 ] 5* 


XKBj>XK7 1 8 

00254 

116* 


CONTINUE 

00255 - 

- 117- — - - * 

OETEPHl 

00255 

1 18** 

c 


8-a 




/ 


PH»VA{,UEIlOC3»TtNEta*QJ-^-0«.06o0l - 

lPHwTFlX«?H> 


> icum 1 rn» IF 1 K I 

^_«0UGNOSUC*..J-HE Test roR EOUALljY_aETttEEN^NQ?;-lHTEGEflS_HAt-J(OL-BEJiE:ANlNGF:UL*. 


i 


C„ 


CQ261 

00261 

00263 

00264 
0027 I 
0027 1 
00272 
00274 

002 76 
00276 

00277 

00300 

00303 

00304 
00306 

*- 00307 
0C3 10 
0031 1 
QC3I2 
00313 
001 1 H 
— - 003 15 

003 1 6 
00320 
00322 
00324 
00336 
00337. 
00341 

00344 

00345 

00346 
00350 

00354 , 

00355 
00357 

00360 

00361 

00362 
00363 . 
00364 
0036A 
00367 

- 00370 
0°37l 

0037? 

00373 

00376 
□ 0377 

00377 
0040 I 

— 00402 . 
00402 


InPH^EQtOLPHJ GO TO 999 

PRINT A,Q* R array AFTER COUP .SOLOT lOM FOR..F 1 ftST . p^.SS^ | « PHASE 

irnCSYPAS»EQ*0) GO TO 99999 

PRINT RESULTS AT EMO OF LAST HlSSION PHASE . „ 

TlHElitTlHC"OTlHE 

f'RlTEC6 ,?999 0j KSYPAS.TiHEUOLPH 


99998 F0RHATl/////lHr,I3HStSTEH PASS ■ t iT, 9^, 6HT*I HE*” • i'f^TITr^ s'ec,?;?, 
- . I IBHHISSION PHASE "iFS#!! ... 

IF IKCHOuT ,EQ.OI GO TO 9021 
' '•v \HRlTEl6t9oI0I 

^010 F0RHA7l//i5H C0HP,3X.4HPM),8x,4HRt2)»ex»SHRC20).7X»5HRI2iI, 

27x»5HRUSI *7 x,5HRI66I i7x »5HR (&7 I »2X 3 

ICNT*i»jCoHPS 
00 9020 I I»l tICNT 
IK»K(2*J 1-1 J 

IMKnK*U,LE,OI 60 TO 9020 

Rl«VVm ,11 

♦R2«‘VnP^2) 

R2Q-V C 1 5^ I ) 

R21 «V f lS + 2 J 
R65»C*Q 
R66^0»0 
R67«0#0 
■ lV2«INExK-iV 


o 

-4^ 


no 

cn 


IMIVz.gT.OI R6S»vnv + |) 
irnvz«GT»n R66 «v(iv42).. 
IFI IV2<gT* 2) R67»vr IV43I 


ro 


9030 


-9040 


-- 9050 


PR I TE (6 ,9030) U »Rl ,R2|R2CfR2l ♦R65»R6AtR67 

F0RMAT(|M ,t3,lX,10(G12«5|) 

IF t #HQT • ( 1 1 ♦EQ*2*0R*1 1 «EQ«82i )^0^TC-.9O50 

PR ITEI6 ,9040) VUv^lR) 

roRMATI|H*,08X,6HR(98I*,Gl2g5| 

GO TO 9020 

IF11I,N£»66J GO To 9020 - - 

PHtTEI6,9060) V II V + 4 ) » V ( I V+5 I 


- 9021 


-9060- FORHATI lH*,Oax,6HR«68)*,CU•5;3X»AHRC6a4ll^C.|.2•^54- 
902O continue 

CONTlMUe 
Call prtihE 
CALL ARSGAS 
CALL AK5H20 
CALL fCL 



IF IWPLOTS.GT.O) CALL TAPEIT 
CALL SV|PH,2l t67» - . — . . 

99999 CONTINUE 

. -- OLPHkPH 

IPHOLO^IFIXIOLPHI 

lPfJa6« IPHOLO-6 

DO 9080 J«l ,6 


OPHM [ J) .PhNAHEI J4IPNI ... 

90Q0 CONTINUE 
C OETEfiHiNC NOHBEB OE HEU tU ORBITER CABIH 

NKEHo|F IX (VALUE ( lOOI iPHtC.BIA-.l | 

CALL (NnEN, 1 , t6I — . 

C FIND main CAOlN HEAT LOAD <00E5 NOT INCLUDE HETAB0L|C) 


jiiL 


V ■ ^ 




✓ 


0 

1 

K£> 



t}CABaVALUEnOQ2«PH*.Qf.Ql- 
CALL SV(QtAB»2»66) 


_riNO AVIQNlCq BAY Al« HE nT LOaOS (pO E S NOT ItjCLU DE_FANl_ 
0 AVI -VALUE U 02M,PH. 0« J/3 .-AO i*« 

QAV2-QAVI 

QAV3-OAVI 

Call svxqavi , 24 .661 -- - 

CALL SVcQaV2,3C.66) 

CALL SVCQAV3.36.66l 

DETEttttiNE INTERCHAMGeR WaTER FLOH 


fllC»VALUeC i033.PH.Q*0l^ 
CALL 5VlY« IC.33. I 1 


FiHO iHu load for each tcateR^loop. circuit^ 

Q I Hu LVALUE CIOHO.PH lOfO) 

QlHUUtlIMU/3.0 

QtHU2-QlMUl 

QlHU3aQlHUl . 

CALL SVtOiHUl ,^S|65I 

CALL SVtaiHU2.M<i.65> — 


C0423 

195» 


CALL SV[QlMU3,40i651 

00423 

l?6«. 

C 

, DETERMINE ftATER .1 

00424 

J97* 


WftPHP* value I 1043 t PH. 0 

.. 00424 

_ 198- 

. 

INITIALIZE BaTER 

00425 

1 99* 


Vr3320^WAPHP-i?rl C 

00426 

_ 200* 

. ■ -■ ■ 

CALL SV 163320,33.20) 

00427 
00430 

201 • 
2D2t. 


CALL SV(AtC,61 .11 
_rtPW'ATT*6 95./3.4l3 

DG431 

203* 


CALL SV (ftP6 ATT ,43 .85) 


O 

- 43 ^ 


03 

JSl 




00*131 

00432 
00^33 
00H34 
00H35 

00436 

00437 

00437 

OO4H0 

OOHH 1 
OOHHl 

00442 

00443 

□ 0444 

00444 _ 

00445 

00446 

0Q446 

□ 0447 

00450 

00451 - — 
00451 

.. 00451 

00451 

00452 


riHD AVIONICS 8AY COLOPLATE-HEAT_LOAOS_ICOMV£RI,TD_iC>lTS)- 
OAVCPI-VALUE I t050,PH»0»0l/10t239 

aAVCP2«QAVCPl 

0AVCP3«QAVCP| 

-CALL SVCOAVC. I .50.661 

CALL 5V CQAVCP2t5l .661 




^o 


% * 


CALL SVlQAVCP3.52.66l ... 

FltiD L06 TEHP PAYLOAD HEaT LOAD 

QLTPL-VALuEn06C.PH|0.0J 

CALL 5V{CLTPL,60.651 




DETERHIHE freon PUHP-^LOW5.-ANtL-EjaiA£a- 

TVFPmPoVALUE C 1062 .PH |0*0) 

„ FPftATT-AFPMP/SCCO. * I 27QQ t/3 • 4 1 3 I 

CALL SVtFpAATT ,62,851 


C_ 


deteh'^ihe hid body Co'-OPLATE-FLOII 

tftHl0CP«0*C509t’AFPHP 
-CALL 5V CWMlDCP ,63 . n 


oeterhihe hio-body coloplate heat load, 

QHlDCr«vALUEll064 , PH tO *0 ) /3 • H | 3 

CALL 5V{0HI0CP.64,66> 


ICONVERT TO I^ATTS) 


DETEPHIHE 0R6ITER REQUIREO POwER (K«1 
JOBFCKrt-VALUE t2C66,PH.0.0l 


determine payload required POftER (KW) 
. PLFCKftcvALUE I3066.PH.O.CJ 


00452 

229« 

C 

DURING ON- OR 

00452 

230» 

C 

2 FUEL CELLS 

00452 

231* 

C 

payload fuel 

0Q453 

232* 


3BFCKb06FCK6/2.0 

00454 

233* 


plfck-plfck^- 




' - A 
\r 


0QH55 

00^*55 235* 

G0157 236f- 


00^60 
00*^61 - 
00*362 
D0S63 
00*^6*! 

□ QS6B 
00*466 
00S67 
00*3 70 
004 7 1 
QQ4;i 
00471 
OQH72 
00473 
004 74 
00475 

004 75 

. 00476 . 
00477 
00477 
0G5OO 

00501 

00502 
. 0Q5O3 

00503 

00504 
OQS04 

. Q050H 
00504 
^ 00505 . 

00506 

00507 
00510 
0051 1 
OOSU 

« 00512- 
00513 
0051 4 

005 14 
CDS 14 

00515 

00516 


237» 
230#-^ 
239< 
240* - 

24l« 
242» — 
243* 
2H4« .. 
245« 

. 246« - 

247* 
24fi« -- 
249* 
250* - 
251* 

- 252« - 
253* 

254* — 

25S* 

256* 

257« 

2 5a* 
259* 

— 260**- 
26 1 » 
262* - 
263* 

- 264# _ 
265* 

266*-. 

267* 

- 260* 
269* 

270* 

271* 

272* - 

273* 
27 4* 
275* 
276* - 
277* 

270* - 


lFnpH«GT«li-*ANO. 1PH»LE*16J-. CO -TO 5615 — — Z 

average P0«ER Alt F^Et CELtS DURING KOH ON^ORBIT PHASgS 



PLFCK»05FCK 

M5 CONTINUE - - 

OfiH7O*0«94*VALUE l4066oOBFCK |0*0l •OBPCK 

- - OBFCQ«VALUE15066»OBFCK»0»01 ~ “ — 

OBFCft*VALUFf6066»0OFCK»C»Ol 

OBFCTbVAUUE17066*OBFCK,C*01 — 

PLH2O»0 ,94* VALUE t4066>PLFCKt0;0MFLFCK 

__ PLFCQ«VALUE15066,PLFCK ,0*01 . - 

PLPCT:»V AtUE I6066*PLFCK ,D*Q 1 

PLFCT*VALUE (7066 iPLFCK ,0»0 1 . .. ^ 

aSSUHE 140 deg F return temp FROH F/C HXi CPCFC«40»»*0*27i 

r.LVE FOR FLO» thru KX 

OB Few 1 »CRFCO/ (P*27* (OBFCT-lMOtO 1 ) 

0BFCft2*AMlNn0BFCft lODFCA U 

PLFCVk I apLFCO/ (C*27* (PLFCT-140,0) ) 

_ . PLFC^2«AHlNUPLFCAtPUFCftn - ’ ZT T 

SOLVE FOR TOTAL FC-4Q FLflW THRU F/C HX AND STORE VALUE 
ft650l«7,0*00rCW2*PLFCtt2 

CALL HIxeo inlet TEHP OF TOTAL FC*40 FLOW TO F/C HX 

T6602* 1 2*O«OBFCVf2*O0FCT4PLFCW29PLFCTl. 06501 

CALL 5V(T6602,66,2) 

rCK20»2,0*OBH20*PLH20 

call PRoh HEaT load data and check HITH TABLE DATA 

QLKr,«»CQl*«OAVCPI ♦QAVCP2 + QAVCp3+VV(8t9n*VV(25t9n*VVl32i9t I 

3 ♦chiocp*qaftcp 

I +VV t 38 |9 I 1 ATT+FPVIATT ♦ ( QF AB + QPLAlRtQHX I N+Q AV 1 

2 ♦QAV2*0AV3 + Q|HuI / 3*g4i3 ) ♦ PLFCKtft 

CALL 5V(0LXtt,66,67 1 

FCKVi»06FCKW*PLFCKw 

CALL SV (FCKft,66 ,68 1 . . . . ■ * 

CALL SV-HLrCKAjAB,?! 1 

.CALL 5/ i "QFCKift ,66,701 - - - 

determine fuel cell waste heat 

qFCAH«2.0*00FCQ*PUFCQ 

CALL SV(0FCWH,66,65I 


005 17 

279* 


00517 

260* • 

- C 

00520 

2Bl • 


00521 -- 

282* 


00521 
OqS 22 

203* 

_2 04 ■ 

C 

C0523 

205* 


00523 — 

266* 

C 

00524 

207* 


00525 

?0Q* 


00525 

209* 

c 

CQ526 

290* 


00527 

79 1 • 



find HYDRAULIC LOOP HEAT LOSS 

I«VALUEn069 ,pH,D»0) - — 

SV tOMYOl ,69,651 

?*VALUE( J07 1 tPH,C,Ol — 

SVfQHY02,71 ,651 ’ 

OETERKInE oxygen restrictor ♦EHVIRONHEMT heat LOAD- 
*VALUE C 1075 |PH,0«01 
SV (Q02R ,7f ,65) 

DETEPHINE APS I/C FREOM FLO« FROH oIVERTER VALVE 

aVALUEi 1076 ,PHfO»Ol 

SV (WF IC,76 , 1 I 

find high TEHP PAYLOAD H% MEAT LOAD - 

LaVALUtC 1 079 ,PH ,0,0 I 

SVICHTP ,79,651 « ^ “ 

oeterhine number of hen in payload Cabin 

Pain jt (Value ( loai *PHiO»ou,i 1 
SK(NHENP,01 ,161 


D-11 


00527 

G0B3D 

_ 00531 

00531 

00531 

00532 
□0533 - 

00533 
. 00534 

0053« 

00534 - 

00534 

00535 
00637 

. 00537 .- 
OCBhD 
00541 
0054 1 
0054 2 

00543 

_ 00543^ 

00544 

. 00545 . 
00546 
00546 . 
00546 
_ 00547.. 

0Q550 
. 0QS50 . 

0QS51 
00552 . 
00552 
_ 00553 . 


272* 

293* 

__ 

295« 
296* _ 
297« 

. 298* 
299* 

_ 300% - 
301* 

. 3C2» - 
303* 

. 304* ^ 

305* 

_ 3C6» - 
3D7* 
3CBt . 
309* 

. 3iD* 
3U* 

3 13* 

. 3 »4# 
315* 
316* 
317* 

316* - 

319* 
_ 320* 
321* 
..322* 
323* 
324«- 


FIMD heat I.QAO F.On_?*tt.OAD..AlR FROh.HAIN CABjH 

QPLAtR-VAtOEnOQ 2 |PHiOiOJ 

to BE added 'eTf^RE HX .hlet 

_ (DOES HOT INCLUDE LlOH OR- FAN- tOADS > _ - 

OHXIN-VALlEIIOBH ,PH|0«OI 

CALL 5V I QHX I N I 84 i 65 J 

SET G5E HX GLYCOL FLO« 


_«GSE»0.0 


»HISS10» dependenh 


00553 

325a 


„ 00553 

, 326a 



00553 

327* 

C 

_ 00555 

32B*. 



00555 

329 a 

C 

00556. 

330* , 


00557 

331* 


00560 

._.332a 

2 

00560 

333^ 

C 

_ 00562 

334 a 


00563 

335a 


00564. 

336f 

■ ... — — 

00565 

337 a 

2 


00566 

339a 

C a#* 

. 00570 

340a 


00571 

^4ia 

2950 

_ ? 7 

_342f 

. 55 . - 

00574 

343 a 


00574 - 

344a ... 

C 

00574 

345 a 

C aa# 

00576 -- 

346a 


□ 0577 

347* 


G0577 

346a 

C 

OG600 

349 a ^ 

5510 


IFttPH.EQ^n ¥iGSE-lCOOOt 

DETERHlN^FLisH EVAPOR AToH-BTRASS -FREOH-F.LOI l 

Y:FEBYP*o«7*^^4*ftFPHP*VALUEtlQ93iPHtO*01 

...CALL SV(VfFEBYP,93,2CJ ' 

’ oeterhine aft body coloplates flow 

ttAFTCP**0. 13C9#WFPHP - -- 

g OCnRHIfl^ *AM"aOOY^COLPPLATE^H^AI-ii3AILJXflNy. ^RT TO , ^l i 

0APTCP*VALUE C ID^T iPHi0*0^/D»Ht3 

CALL SVIGAFTCP.TT.AAI 

5 determine payload H!< flows for .ClUN/CMAAfliO 

WLTfL aftFPHP-WFEBYP-ftAFTCP-WF IC 
CALL SV{WLTPL,59» U — 

C lirup'r^ro// LOOP-FLOW THHU-L0W..TEKP.PAYL0AD 4liL 

CALL 5VaiLTPLi76|20) 

^ 999 ' CONTINUE 

._2 _IFIN.NE.2) GO TO 250, — — 

C CALC required 02 HAKEUP POR SS CAbIR 5|n 

BlU5I»Rn60l*VVn 

C CALC N2 makeup for SS MODEL 

R tl 66 )»R < 

250 CONTINUE __ 

22 lFtNiNEt22J GO TO 2250 :,^r,Tn 

C ••••• REF •••• R REUMONT* Rli 10/18/74 

W3«A t I I *R172J /CPA 

W3«AMAX 1 tW3 t A t I > ) 

Rl66l«l4*l37«tt3**0*592 — 

^ 9 ^° IF (nInE.Z?* ANDiN*NE* 35» ANDiNiNE*Hl 1 — CO TO ,,2950 
C REF R rEukoNTi Rli 10/16/74 

R ( 66 1 «6 4 H t A I I ) * • « 5 Ba 

2950 CONTINUE 

..55 < --.1FIN.NE*55I GO TO — ^ 

IFIBU 1 •GT*3CQ0* ) GO TO 5S10 

C DUAL FREON LOOP OPERATION — ^ - 

C •••♦♦ REF t**# R REUHONT* Rl* 10/10/74 

R( 66 l- 4 S 0 * 37 »Dn I **-34 

GO TO 555C 

C SINGLE FREON LOOP OPERATION 

5510 R I 66 I *225 *5 I *B I I I •• •‘^02 
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QOfiOl 

0Q602 

0060*^. 

0060*1 

00606 

00607 

00607 

0Q6 I 1 
00612 
00613 
006 
00616 
00617 
00621 
00622 
00623 
0062*t 
0062** 
0Q62b 
□ Q62B 
00626 - 
00627 
00627 
Q063C 
QC632 
00633 
. 0063*i ■ 
0063S 
00637 
006HO 
- 006*j I 
006*13 
006M3 


_350«.- 

3Sl* 


5550- 
60 


.CONTINUE- 

ir OUNE. 60 ) 


GO TO 6050 

• PI AGNQST IC*.. the test FoR . EQUAL ITT JET1^EEN-NDNr_lHT£fiER5-HAT_JlQI.JE-..HEAN IN CF.UL* 

A(21«VV(76i2n 



IFlRU&l ■EQtOtO) 

6050 CONTINUE 

59 tF(N*NE»59) GO TO 5950 

C ••••• REF •••« R REUHONTt RIi- 
R<66)»5#ie32*B( I )««ta86 
59S0 — CCHTlriUE - 


10/18/7*1. 


GO TO 6510 


IF ( N«nE «6S 1 CO TO 6550 
CMlNnA 1 I 1 *CPA 
CH/X«BI I UCPB 
IF1CHIN*LT*CHAX) 

X»CH1N 

CHlNuCHAX 

CHAX«X 

continue . 

assume 3 FUEL CELL OPERATION FOR UA CALC 

R(66) •20*730*A1 I ) ••0*5*I0 

CALC COUNTERFLOW HX EFFECTIVENESS 

El»EXP (-R C66) /CHIN* I I ♦0*CHlH/CHAXn — 

R(67)cC I iO-En/U .0-CHiri/CHAX#El ) 

IF e(l>»GT«3oC0 *• ASSUME DUAL FREON • LOOP ^OPERAT I ON • (2HX-. IN SERIESl- 
IFIBft } «LE«3 oqo« > 60 TO 6S50 

RH«CMIN/CHAX 

EOVR«R 167 1/RR 

XxEOVR* (1 •-'*2S«E0VR1 

IFIRRtlE»*SI X«R (67 1* I2*"RI671 I 


X7‘ 


“ncr 

an 


ro 


R 167 J «X 

6550 CONTINUE 


379» 66 IF(N«nE*66) GO TO 6650 : 

•DIAGNOSTIC* The test FOR equality between NON^INTeGERS hay not be heahingful* 
IF IR165I •EQ«0*01 — AI2)«VV(62i021 


300- 


00645 

30 1 • 

6650 

CONTINUE 

w 00646 

302* • -■ 

69 

IF(N*NE«69) GO TO 

00650 

•diagnostic* 

THE 

test For equality 

QQ650 

383« 


IFin 1651«FQ*0«DI j 

QQ6S2 

304* 

6950 

CONTINUE 

00653 . 

305* 

71 

JF (N«NE«7l ) GO TO 

00655 

•DIAGNOSTIC* the 

TEST FOR equality 

^ 00655 

- 30 6* 


IF(R(65) #EQ*0*0) 

00657 

307* 

7150 

CONTINUE 

- 00660 

308. 

79 

IFIN#NE,79I GO TO 


6950 - 

between riON«*tNtCGERS 
A(21»VV(67i02) 


HAY NOT BE HEANlNGFUL. 


7150 


A(2I«W(68,o21 


00662 
00662- 
0Q66H 
00665 
00665 
00667 
00670 
-0067 1 - 
QQ672 
0Q672 
0067H 

00675 

00676 
00676 
00700 


•DIAGNOSTIC* 

3n9» 

390* 

- 391- 

392. 

393 * 

39 h* 

395*.- 

396* 

397« - 
398* 

. 399. 

mqo» 

-- *401 • - • 

H 02 . 


7950 - - - , ■ 

the test FOR equality between N0n-|NTeGERS Hay not 8E meaningful* 

IFiRl651*'£Q*0*OI A|2)aW(77»62> 


7950 CONTINUE 

80 lF(N#NE*80l GO TO 8050 

c find payload gas flow from haih cabin 

PLCFH»VALUE( IO0O|PH,O*O)’ . 

R 120 J .PLCFH*RH 0 A* 60#0 

-8OSQ-.C0NT INUE 

82 IF(N,nE*B2> go To 8250 

C CALC REOUIKEO 02 MAKEUP FOR 5S CABtN SIH 

R 1165 1 160)+VV 181 |68) 

8250 CONTINUE 

90 iriN#Wt,90) GO TO 9055 

C ••••• REF •••• R REUMOHTt R|t li/lfi/7N 

R166la*17C»67.n(|l«««2*13 


00701 HQ3* 9CB5 CONTINUE 

00702 

00702 a05* — — — 

00702 406* 

00702 _ H07f C 

00702 H08« C THE FOLtO«IHG CARDS INSERTED TO AOD APPLIANCES 

00702 409* C . 

00702 MIO* data NPH*LPH|NT1H/ 0iO|0/ 

00702 HI C COMTRQU^PPJNt^QUI 1 

00706 H12* NSTRU7)«0 

00707 HJ3» IF lHPAS5,E0,fl) CO TO 9085 

G07iJ H14* IF (NTIH »6T, 01 GO TO 9090 

00713 H 15» 9qQ5 .N0UH*mN- 1 I • (H-2 J • (N-03 ) • I N-120I • IN*»1211 • tH-l2? I 

0071H HI6* IF (»DUH •GQ« 0> 00 TO 9089 

007 16 HI 7* NOUH" I N- 125 ) • I N- 1 26 I • I N-129 L«J.K!lLJXI 

00717 Hia* 9DB9 IF (NOUH .EQ. 0» NSTR(17J"1 

0C721 H19* 9090 CONTINUE 

00721 H20* C 

00722 H2l» IF (N .EQ, 2) GO TO 200 

□072H H22« IF IN«EQ#I20) GO TO UOOO 

007 26 H23» IF- IM^EO.Un.^GO -TO I2IQ0 

□0730 H2M* IF {N<£Qtl22) CO TO 12200 

00732 - ^HZS* : IF {MiEQ»l3n GO TO UlOO 

0073H H26# return 

□ 073H H27* C AOO FOOD ttARHItIG TRaYS aNO .ORY JOHH-OtEAt-XOL-CAaiH 

□073& H28* 200 R(66J»QCA0 ♦VV(l3li53l+ VVll2ii53J 

0D736 H29t IF. tlPH + NTlH LE 2 1 . CALL- RESET 

00740 430« CALC CLOCKtDUH) 

0074 1 HTl** IF IOUH + 9# tGT* 22*) TlHCrXwlQO^ 

00743 432* NTIMoNTlH+J 

0Q74H 433* IF <IPH *GT* LPHl NTlHoO 

00746 434» LPH«IPH 

007 4 7 4 35* WRITE (6 »2)0I .. IPH *KSYPASiOUH 

00754 436* 210 FORhat t 2ISi F9*4 ) 


007S5 — 437* RETURN 

0O75S C SET AtR SPUTTER RATIO TO dRYJOHN 

C07S6 439* 12000 R(65J«»*57l 

00757 440* IF (IPH *LE* UI R(6S)"l#0 

QQ76I 441# RETURN - . 

OQ76I 442# C SET DRYJOHN USAGE PHASE 

00762 443# IZiOD CONTINUE 

OOT63 444# R (66 J »PH-- J2* 

00764 445# return - - 

00764 446# C DRYJOHN VACUUM OUTLET SPLITTER 

007 65— _4 47# L-22Qa. R ( 65 I *0*0 . ■ ■ ■ ■ 

00766 448# IF (IPH «LE* 13) R(651«l*0 

00770 _ 449# . return . . 

00770 450# C SET NUMBER OF FOOD TRAy CAVITIES TO BE HEATED 

0077 1 — 45 1 # I3jl00 R(66J»3*# (PH-»I1«) 

00772 452# IF uPh 12) R(66)»0* 

00 7 74 .4 53# R(84 I rR<66) /3*~. : 

0Q775 454# IF UPMpNE.13 •OR, iPH«EG,NPH) CO TO 1 3 1 50 

00777 455# NpAS5»0 ^ * 

0(000 456# R(7n»l?0« 

OlOQl 457# R(69)«7#9 ' 

0(002 458# I3I50 NPH^IPH 

01QQ2 . 459# - C -- 

01002 H6C# C 

01002 461# C - - 

01003 462# RETURN 

01DD4 463# - ^^ND — 




#NEA 

#NEl^ 

#N£fi 

»NEfc 

• NEft 

#NE« 

• KE& 

#NER 

• NEft 

#NET1 

• nER 

#N£rt 

#neti 

•N£« 

• NEi 

•NEfl 

• NEfl 

#NEn 

»NE» 

#NER -- -- 

*NEn 

#NEa 

• nEA 

: »NEft 

' #NEd 

#NEW 

• NET) 

#NEA 

• NET) 

•NEft 

• NEA 

#NEflr 

tNElA 

#NEft 

• NEft 

#NEft 

• NErt 

•HLn 

• NE* 

•NEB 

• NEtt 

*N£ft 

• NEH 

#NEn 

• NEn 

•«£« 

• NE« 

#NE« 

• NE« 

#NEA 

• NEi) 

. * 

• NE» 

#»E6 

GPOLYRO? 

GPOLYNOfi 


iH 

K) 

t 


^ -- 
01 “ 

. . 

— 
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.00101— 
Q0103 
00103 
OQ103 
OOlOH 
0010H 
D0105 - 
00106 
00107 
00107 
00107 

00 no 

. 001 u_ 
00112 
OQl 13 
G0U3 

00113 

00114 

001 IN - 


Ua- 


6« 

— 7 t , 

a* 

9« 

10* 

It* 

12* 

n3*- 

1N» 
.15* - 
16* 
17* 

I a* 

-1 9* - 


^UBR0uT4>lE-GPOLt.2_ 


-GPOUt U 

6P0UY 2 

-GPOLY 3. 

GPOLY N 


COKKON /COKP/ DSnS) iNf^Ai »NBl«NC•NCA^|^]CFlt^^EXT»HEXV»NK^ 

1 NKEX,NKS|MKT iNLFL^NP |NPASSfNFF|NPFTt6 J ♦N0,N5,N5F*HSF.n6j^ 

2 N5TR1 101 »NSO0ft,NVtNVT,Yn2) 

... COHhON /ECLSYl/ KCHOUT^KPRHTfKPTINVINj |K0lT*KttIn*KBlT2, 

1 KftlT3,KwlTN,NUFF»KSTE0Y 

COHHOII /RARRAY/ IMAXRtRll) — GPOLY- 

COMHOM /KANDV/ K CPOLY 

COHHOK /HlSc/ 0TIHE|6 RAV|ICFlSYS#K0UTPT#KP0R0P,KSYPaS,k7raNS» GPOLT 

1 LPSUHIS) tMAXC! iHAXLPiHAXSLP'.HAXSSI •NCOMPS,HEWDT,HtAST|NPASPD» GPOlY 


6 

- 7 . 

a 

2 HlNSSf ,PGHlN,PL«lN»START|STeAOY,T|KEtT!HEHX#THAX,TH|N,WTKAX GPOLY- 9- 

COHKOH /CASE/ NCA5E,NRSCS GPOLY lO 

-.COHMOW --/CASE3/ kPL0TS,KRUN»PRwT0,T0UT,):PRUH»NXY2*KPUNCH»PNCH 

COHHON /F21P/ CPF.RHOF iV15CFiWTHF»XKF 
. COHhOM /PROPTY/ CPOiCP C 99 1 tCPCONL iCPCONVtCPCOZ^CPOlL^CPOXYtCPTCtGPOLY H- 

1 6aHGAS»RH00,RH0C99) iV1ScO|V|SC( 99I iVISCASiWTHOtMHl??! fViTHCON» GPOLY 12 

2 ttTHolL iWTHTC I XFO, XK 199 1 ,XFGaS ,XKL 10 »V ISLIO GPOLY |3 

C0HH*0n /source/ A(I9) |BU9 1 ,CPA,cPB|IaI * |0l |NA i NB iMPPS #NPF5TI & I »GPOL Y \H 

4 hsr5fNSFST(61,RH0A,RH00,VlScA,VI5CD,ttTHA^«iTH8tXKA*XKB _ GPOLY |S- 


00123 . 


-25*. 


^□1 HENS low VUnKUl 



OQl 2 N 

26 * 

equivalence (ViKI 


00125 

— 27 * 

LOGICAL steady 


001 2 S 

28 * 

c 


00(25 

29 * 

C .INITIALIZE hAFCEE COUNTER 


00125 

30 * 

C 


GPOtt -18, 
GPOLY 19 
■GPOLY 20 - 


00126 . 


.31*» 


.IF t «NOT«STEADY«AN0*XSYPA5«EQ«01..nX«|. 



00126 

32 * 

c 

SHUT OFF < 


00130 

33 * 

22 - 

IF(N#mE .221 


00132 

3 n • 


CALL SKtiDO 


00133 

35 * 

2750 

CONTINUE 


0013 N 

36 * 


IF <N»NE «36 


0013 N- 

37 *. 

, .... c 

— - STORE 


00(36 

36 * 


CALL SViRia 


00(37 

39 * - 

3650 

. CONT INUE 

% 

QQI NO 


56 

If (N« nE «56 


- 001 N 2 

HI* 



R( 65 l* 0 p 0 


00 M 3 

N 2 * 


RI 70 U 0.0 

r *1 

00 1 H 3 - 

N 3 *. 

C 

SUBLIH 


Co 1 N 3 

nh • 

c 

assume 


GO TO 36 SO 


GO TO 56B7 


o 

-TO 


03 

cn — . 

-- 


001 15 

20* 

COHHON /POVi/ POWER 

GPOLY 16 


00116 
DOM 7 
■. 00120 
0C122 

22* 

23* 

COHNOH/SHUTLE/PHilPHiOLPH.IPHOLDf TlHEl ,0PHN|6) ,NPLTS 
COHHON /VLOC/ IP,tS,IC,lQ,IV»|VT*rEXtlNEXK 

0 A T A H X / 1 / .... 

“ ■ 


2N* 

LOGICAL POWER 

OPOLT 17 



CH*X»tCE StDC AT 32 F 
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/-■■■ - 

V : 





•mission oepenoeht* 


IFI lPH«ME.2*ANO#IPH*NE*3tAND»lPH«NE*t0-AM&*!PH»NE*l9l 

IFlAdl.LEiO.Ol ~GO -to S657 — 

CHlN»A( I )*CPA 

R(66l<il.0-EXPt-RIA7)/CHlNj 

R (65 1N*R C6B I • (32»0«^A(a} I 

R{2)»A12 J*Rt651/CMIN 


GO TO 5657 


5657 CONTINUE 
59 IF(N*NE*S9) 


GO TO S950 

IFUISTRJU) •EQiO»AWQ»tHQTiSTEAOy) GO-.TO 5950-«; 


FORCE CONVERGENCE OF HEAT LOAD AND HEaT TRANSFER FOR STEADY StaTE 


QLOADitVV(6Gft65) 


ic* The test fcR equality between non«» I ntegers Hay hot be heaningful* 

IF (QL0A0*EQ*C4C) go to 5950 . • . - 

IF ( A0S ( 1 tO-R 165) /QLOADl »GT •0*03V NEXT«60 
.5950 CONTINUE 

65 IFCN«NE,65) GO TO 6550 


IF IMSTR 116) iEQ«0»AN0* •NOT gSTElOY U.GQ^TO .6550 


QL0AD«VVI66f65) 

:• THE TEST FOR EQUALITY BETWEEN NOh-U 

IF lQLOAO«EU*0«O) GO TO 6550 

IFCABSI 1 lO-R 165) /QLOAO I *GT*0#03) 

6550-C0NI INUE 

68 lF(ri,NE.6B) GO TO 6850 




heat trahsfch for steady State 

1 

HAY'irOT BE meaningful* 

OO 

... . — 

or 


NEXT«66 


.IF INSTR 1 1 6 ) •EQ.O* ANO# •NOT^STEaOY) GO TO 6850 




C FORCE CONVERGENCE OF HEAT LOAD AND HEAT TRANSFER FOR STEADY STATE 

_ QLOADb-»VV 169 165) * - - - 

IC« the test for equality between NOm^INTeGERS hat NOT BE HEANIHgFUL* 

IFIQLOAO*EQ*0*OK 60 TO 6flS0 — — 

IF UBS n •0-R 165 ) /OLOAO) »GT ♦0*03) NEXT-69 

.. 6850 CONTINUE 

70 )FIN«Nt,70) GO TO 7080 

_ IFIN5Tfm6)*EQ»CUND«iN0T,STEADV) GO TO 7050 . — ^ ’ - ■ _ — "" 

C FORCE convergence OF HEAT LOAD ANO HEAT TRANSFER FOR STEADY STATE 

QLOaDv^W 1 7 1 »65 ) 

lc« The test for equality between NOfi^lNTEGERS Hay hot be HEANINgFUL* 

IF{QL0AO«EQ#O#0I GO TO 7050 

IMAOSI I •0-Rl65)/QL0AD) •GT«0#CI3I NEXT»7l 
7050 CONTINUE ^ - 


SET. UP RADUTOR^ETURH..TEHP_AND..FLOH-«HE!LRADiATO^l,QQE-.LS- 

NOT SOLVED 


.....CALL SVtRCU i99,n 
TFOUT»H 0 t 


•mission dependent 


IF nPH.LT,9*0R#IPH.GT*17l TF0UT«H(2I 
- CALL 5VtTF0UTt99,2» - - - — 

7080 CONTINUE 

_ 72 IFCN.NL.7z) GO TO 72B0 — 

R(65)>0*0 

R(69)»0*0 

C NH3 EVAPORATOR SIMULATION 



N 
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* 00237 ^ 

99« *. 

00237 

100« 

^ _ 00237^ 

1 0 1 1 _ 

□ 0290 

102« 

, 00292— 

103* 

002HH 

109* 

002H5 - 

- 105* 

□ 0296 

106* 

- 002‘l7- 

107*- 

00250 

lOQ* 

QQ251 

1090 . 

00251 

1 10* 

□ 02S3 

IW - 

□ 0259 

U2* 

— 00255- 

113*- 

0Q256 

119* 

□ □257 

— I 15* 

00260 

1 I6« 

00261 

- 117* 

0Q261 

1 10* 

— C0263- 

119« 

00263 

120* 

00265 - 

_ 1 2 1 • 

0D266 

#D t AGNO 

. 0Q266 

iZZ* 

00270 

I23* 

-- 00272 

J294, 

00273 

125* 

OOJ73 

1 2 6 • 

00275 

I27« 

.. C0276 

— |2B» 

00277 

129« 

— 00300 - 

130« ■ 

□ 0302 

I3l* 

. 00309 

- 132* 

00305 

I33« 

00306 

I39« 

00307 

1 35« 

^ 0C31D- 

136* 

00312 

137* 

0G3I3 

|38« 

00313 

1 39* 

- 00315 

JUO* 

00315 

191* 

00315 

1 92* 

003 15 

193* 

— 00316 

199# 

00320 

195* 

00321 

196« 

00322 

1H7« 

00323 

148» 

00329 

1 99« 

. 00325 

^ . ISO* 

00325 

l5l • 

00327 

. 152* 

00330 

153* 

— C033I 

1 5h « 

00333 

|55* 


bHlSSlON OEPEHOEmT* 


ric* The 


IFf rPH*UT.!9J CO TO 7273 

..IFIAU I .UE*D#G» go to 

CA*»A1 1 )*CPA 

- QREOO*CA*l Ai2l^‘»OtOI 

tlAREQD*«6*0»OREQD/70*0 

^EFFaUO * = 

RC21»*<0,0 

iFiuARE0D*LE.RU7i» GO 70-7210- 

degraded perforhahce not enough ua to handle heat load 

R t2 »• KA«AI2 J-S*0*Rt67n/lCA4RC67)/A*0l 

EFF«RC671/UAREQ0 

-JM65 CB )-A<2 n * : 

R (69 )*-R t65)/ IR J6a J •EFF) 

CONTiNUr . . - . . 

continue _ 

IF(N.NE*78l GO TO 7B50 

ir INSTRI 16) •EOftO»AND* *NOT «STE aOY J**G0—T0~78S0'“““— ■ ' ' — - _ 

FORCE convergence OF HEAT LOAD AND HEAT TRANSFER FOR STEADY STATE 

e°test*for^eouality oetweem non^integers hay not oe heahihgful# 

IF (Q10A0*EG*0*0) GO TO 7850 - 

lFUeSll*0^0C65J/0L0A0)*GT»0»O3) NEXT«79 

l.COIiJlNUE -- - ; ^ 

tFlN.NE,P2l GO TO 0250 

‘ return gas TEHP FROH PAYLOAD COHPABTHENT 

R(2)«75* 

R(66)*AUMCPA*|R(2)»AC2)) -- . _ . 

I continue 

IF n*»NE#8a I GO TO 8R50 

IF (NSTR * 16) «E0*0# and# »NOT*STEaOY) GO TO 8G50 

TCAB2«TCABI - - . - 

TCABl oVY(2> 10^ » 



TTOt-AKAX I I0.05*TTQL) 

1F( A8S C TCaBI*TCAB 2) ♦GT<TX0L>^EXtgB 

CONTINUE • 

. lFlMtNL*90) 60 TO 90S0 

SET G5E freon OUTLET TE«P |F PHASE I 

R(65J«D.0 


•mission OEPEKOENTa 


-JFllPH*ME*n CO TO 905 D-- 

R(2J»3S*0 

, A(2J«VVI99«Z) 

CALL F21 (A(2) |R(2) ) 

-R 1651 «A I IMCPFt IR I 2 lwAC 2 U 

CONTINUE 

1 F(N.NE. 92 I go to 9250 ^ • - - 

flash evaporator sihulaTion 

R(65J«0.0 

R(69)»Q,0 

, IFI A( I ).LE.0*0I GO TO 9250 

IF I A (2 » .LE*MO*C I GO TO 9250 


D-17 




00333 

1S6« 

CQ333 

157* 

„ 00333- 

158^^ 

00335 

I59w 

_ 00337, 

I6u* 

003H0 

|6l# 

003HI 

. „ 162# 

003M2 

163* 

OQ3H3_ 

1 64* . 

003M *4 

165* 

0Q3hM 

- 1 66* 

003<46 

167» 

^ 003H7 

168« 

□ Q3S0 

169* 

C03SU 

1?09. 

00352 

171« 

„ 00353 

172* 

00353 

173* 

. 00353 

174* 

0Q355 

|7S* 

0Q355- 

1760 

00355 

I77« 

— 00356 , 

17B0 

00357 

177* 

00357 

180* 

00357 

IBI* 

C0357- 

I 020- 

003 6 1 

183* 

00362 

I84f 

Q0363 

IBS* 

„ 0036H 

I06t 

00365 

1870 

00366, 

iea«. 

00366 

187* 

00366 

190# 

00366 

191# 

„ 00367 

192* 

OO3T0 

193* 

_ C037Z. 

194* 

00373 

195* 

00 3 7*4 

196* 

003 7b 

197* 

_ 00376 

.,*D: AGNI 

00376 

198* 

OOHOO 

199* 

OC402 

200* 

D0H0*4 

201 * 

00905 

202* 

_ 00406 

203* 

00407 

20H* 

— 00410 

205« 

OOH 1 \ 

206* 

C04 12 

207* 

004 13 

200* 

00HJ4 

- 209* 

004 1 5 

210* 

— 00415 

211* 

00417 

212* 


•HISSIOW OEPEHOEnT* 


imPH«eQoUQR«|PH«6£«20) 60 TO 9250 

CA«A t 1 1 *CPA 

QRtQ0i>CA*CAC2)"‘H0«(]) 

EFFnUO 

UARCQD<tORtQD/10.0 

^R12J««H0#0 . 

irCUAR£f,lD,L^.Rt67) 1 GO TO 92|0 

degraded PERfORMAMCE not enough UA.TO handle heat LOAD- 
Rt2»*>(CA*Al2»^30^0*R<67)>/ICA + RfA7ll 

EFF«R{67)/»JARECD 

R165 J»CA* lRi2)-A t2) » 

. Rl69l»-R(65)/(RI6a)«EFei-- 

continue 


IF lN.NE»NtAST)_ . 60 -TO J9t99- 


-ITER2aiTER2tl 

reset svsteh time increment 

-OTXHEKi. 

IFIKCHOUT^EQpOJ go to 99998 
PR 1 NT,.5CHEllAUCS-JlE.tEa.LvERt-SlSXEM-i?AS 


CALL ARSGAS 

CALL AR5H20 

CALL FCL 

99998 CONTINUE 


_^C FIND SPLlI^JlATIO-EOR_CAOtN.TEHP.J:OHTROl^VALVE 

TCA0»VVI2»10*U 

TSET«70.0 . 

lr<KSTEOY.EQ«0>AND»*NOTiSTEAOYl GO TO 0635 

C‘LL HAFCEEiSRa&»TSET*TCAB.a«.,A67B6*-*05»NX*SHL*SRK,N5TRI 

GO TO 8650 

8635- CONTlNUr - ’ 

SR86»VVC06i65) 

Ic*-, T he test for equality aETOEEW NOh^INTeGERS HaY-NOT BE^HEANirtGElJU 
IF ISRB6 pE0»O*0*AH0f TCAB#GT*TSET1 GO TO 8650 

IF lKSrPASeEQ-0 J -GO^TO 8636 

tnrCAB.LT.TbET .ANOt T C ARO ♦ Lt •TSET ) GO TO 86H0 

-.0636- continue - 

ITERUO 

CAUL EST tHi 5R86 iTCAB»TSET |5R8aOo TCaBO »TSETO* i tO»lTERl jNSTRIXJ J 

60 TO 86*45 

DARO— SR06CAMAXI 1 0 ,05 » I • DOS iSR B6 I 

06*15 CONTINUE 

Sa86«AHlNHSRQ6»0«67a6I 

6650 CONTINUE 

CALL SVtSRB6»06»65l . - - — - - - 

IFIKSYPAS.EQpOI 60 -TQ. 99999 

IFtHOOIKSYPAS* 151 •NE*01 60 TO 99999 








4 ... 


D-18 


/ 


C7 

t 



9 


QQN63 

252« 



— 25ia 

00H6& 

2SH* 

_ . 00H67 

- 255* 

OCH 70 

256* 

— 00**? I ^ 

257* 

00^72 

258* 

00**73 

259* 

00H7*i 

260« 

00475 

2^ !• 

C0477 

262« 

_ 00500 

263« 

00501 

26H» 

C0502 

265* 

Q0S03 

266t 

OOSOH 

267- 

0C50S 

268* 

00506 

269* 

0OS07 

270* 

00510 

271 • 

oosio 

272* 

COSH 

273* 

005 n 

2740 

QOSLI 

275® 

00512 

276« 

0DSI3 

277i 


C DRrjOHN WATER SEPARATOR 

J2500.,IE^IBU J *LT •„.CO I K RETURN 

R t n«R 

R<2A)«0* - 

Rt20)»R(7ti»+R(25J 

R«3 ) «R { 22] 

CP8»JR(2HJ^R<27?*R(25»*cPC0NV)/rR<2S)*Rl2Sll 

0LICJ»,5*tHO.^|7#)*3«Hl2 

QAlR»«5*<t00»-*^i8«]*3»m2 

IF {0f7) .(jT* 2*J 60 TO 12520 

OATR«QA IR^QLIQ 

R(2)-R(21) 

60 TO 12530 

12520 RC2I«R(2n + QU I Q/ t R f i J *Cp ( 1 I | 

1253C Rl 2 n'«R( 2 l) + Q A 1 R/ * R J 2 q UCPB ) 

R C*M«R(23) ♦! 2, 

R( 23 I>K I 23 U 15 •« .0361 3 

call PROP(R(r iNPFT,CpA,WTHAiRHOA*VlSCAjXKAJ . 
CALL PR0P<Rt2o> >NSF ,N5FTiCPB,HTKB*RH0niVlSCB»XKBI 
return 

C DftYJOHN OUTLET aIR FILTER PRESSURE orOP 

12&00 R ( 4 J »R 13 I <-2it>*036l3 
C 
C 

return 

End 




aHEtl-^ 

• HEN 

aNEN _ 

• NEft 

•Ntn_ 

• NEW 

• NEW - 

• NEtt 
.NEft 

a MEN 

•«£«-_ 

• NEW 

iNEft — 

• NEW 

... #NEft . 

• N£n 

— •titti - 

• NEW 

• NErt 

• NEW 

• NEA 
•NEft 

• NEBr 

GP0LTJ9ij 

GP0LY19S 


t~7 

ro 

t 

..ro 

cn 



- - 


END OF COHPILATION} 6 DIAGNOSTICS, 

6P0LY2 SYMBOLIC 

GP0LY2 CODE RELOCATABLE 


15 

FEB 

75 

tjSJ*l2}3S 

0 

03223632 

14 

271 

(DELCTcO} 

IS 

FEB 

75 

0S{M2|3S 

I 

03233154 

84 

1 

ioeucteoi 





0 

03233300 

14 

81 



02 - 110571-2 


APPENDIX E 

OUTPUT DATA FOR SHUTTLE ORBITER 
SIMULATION WITH APPLIANCES 


E-1 



m 

I 

ro 


O 

o 


^^THOSPHEft^C GAS LOOPS 


30 

31 

32 

33 
3^ 
35 
Jib 
37 
3a 

^0 

M 

<12 

<13 

Mn 

<<s 

«7 

14 

1 ? 

bO 

51 

52 

53 
5^ 

55 

56 

57 

sa 

5’ 

ftO 

«l 

62 

63 

61 

65 

66 
67 


MISSION Time s 

MISSION Phase 


2705^?tt0 SEC 
» U SOMTIE 


XXXXXXAAXXXXXAXXXXAXXXXXXXXXXXXXXXXXXAXXXXXXAXXXXXXXXXKXXXXXXAXXXXXXAAXXXXXXXXXXXX 



X 




1 1 ) • 12) 



X 

X 

6 

X 




ORdITER 


A A A A A ld31 AAA/ 

1 A 

A A A A A A 

7 

X 



rRE*f MODULE 


A T« 66*H 

X 

X 

a 

X 







X 

X 

9 

X 

CABIN temp 


61*B 

CREtfiHtN 0 

H 

1 ce<ti 1 

X 

X 

10 

X 

DCw PO^nT 


5 6 • B 

CRtrt pToT 0 

1996*3 

1 CADln 1 

X 

X 

1 1 

X 

total press 


11*700 

QKET AVG 0 

500*0 

I AVIONICS 1 

X 

X 

12 

X 

02 PRESS 


3.205 

QS AVG 0 

270*6 

1 Q0 6H 1 * 1 

X 

X 

13 

X 

C02 IHm hg) 


1*1 

QL AYC 0 

22fl*5 


X 

X 

H 

X 

CAS LEAK 


• 25n 

Q5R AVG0 

*9 

A 

X 

X 

15 

X 

02 haAEuP 


*3B9 

QSH AVG« 

*0 

A T" 6B*2 

X 

X 

U 

z 

N2 HAALUP 


* 106 

OSTOR AVC« 

100*9 

A 

X 

X 

17 

X 

qS ADDITION 


•1323* 




X 

X 

1 0 

X 






1 181 1 

X 

X 

IV 

X 






I C^dIn 1 

X 

X 

20 

X 






J FANS I 

X 

X 

21 

A 






1 Q0l9Btt» 1 

X 

X 

22 

X 






« 

t 

• 

t 

t 

1 

1 

1 

1 

1 

1 

X 

X 

23 

X 




* 


CPH032O«O A HMtIiUSX 

X 

2^ 

X 






A T*» 73*9 

X 

X 

25 

X 






A 

X 

X 

26 

X 







X 

X 

27 

X 






1 U7) 1 

X 

X 

20 

A 






I LI OK i 


X 


MCo2» ••66 


QS«57?tO 
MrtV« f27 


T« 7S«S 


A A A A A 

A H" ^7 1 • I 


A A 


I (2ll 1 
I HCaTEH^ ! 
I Q* 0*. I 


A T n 7 S 
A 

A A A A A 


A A 


A A A A A A 

H.I2I3.3 


A T 
{06 » 

A M« 

— X 
] (22> Iff rr « 

ICOND* NX 1 X 

IQf -55l?t I X 

1M»C*«U76 hr If rt 

X 

A !• HH.O 
123) 

A T- 65i7 
A 

(DO)A AAA 


T»S2*5 
It n 

M6600> 
A ff 
T«*)3*H 


A A 


A A A A A 
M*2|5.f 


<2'U 

AVIONICS DAY 


COMP* TEMP 
QS ADDITION 


A M«9H<**5 


0D«1 

I512« 


T« 73,1 


1 I26l 
I FANS 
S Qo 601* 
I T» 02.6 


129) 

AV 1 NX 

CFH*215« 

g"-2|HH* 


I 

1 A 

I 

I 


l30) 

AVIONICS 6AY 2 


COMP* Temp 
qs ADOlYlON 




aoti 

ISH2, 


T« 7S»1 


132) 
FANS 
Q" 60l» 

T- 02,0 


{ 55) 

2 HX 

CFh«215* 
qo- 2 iMHt 


136) 

AVIONICS BAT 3 


COMP* Temp 
QS ADDITION 


A M»94H*S 


• eo* I 

I5H2« 

T» 73*^ 


130) 
FANS 
0* 601* 
T- 02*0 


l>:n I 

AV 3 HX lA 
CFM-215* 1 
Q*^2IHH* 1 


OPERATIDHS DAT 1 2‘*H OQM 005 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
I6l ) I (02) 

A A PATLOaO 

CDMPANThINT 


COMP, TtHP 
DEA 

total PrtES 

02 PKCSS 
C02 IMM K&) 
6A5 LE*X 
02 HAXtliP 
N2 MAiUuP 
qS AODll ION 


CkEamKN • 
CmEa oToT • 
OHET AvO m 
(dS AvG » 
C*L Av6 0 
G5H AVGtt 
AVfif 
QSIOR AVg“ 


75*0 

61*6 

11*700 

3*)»7 

1*6 

• ooo 

• 216 
»ooo 
•;i* 


3 

|R9«*1 

500»0 

10V«) 

3lO«1 

«& 

*0 

Il1«0 


XXXXXAXXXXXXXXXXXXXXXXXXZXXXXXXXA 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A A A A 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxzxxxxxxxaxxxxxkxxxxxxxxxxxxxxxxxx-xxxxxxx 


A X 
A X 
X 
X 
X 
X 


XXXXXXAAAXXXAr,XXXXXA«XXXXXXXXXXXXXXAAXXAXxXwAXXXXt«XXXXxXxXXXXXXXXXXXXXftX»XXXXXXttXXXXXXXXX 
f1 1 V It « 

T"75*1P rt>ii*316»7 T“75«H»f ftM0 3|6.7 T«75*4N «M* 316*7 

1 A To 60*7 tf « T. Aa'*7 « ft Im 68*7 


c 

L- 


D2-II6571-2 


n 2 -IIFR 7 l -2 


J J J 


t 

t 

I lO 

t 

e 


I t r o 

I I • • 

I te • i«o 

I 1*1 t o 

t I ^ 

t X I • • 

I H I E 

ft I X 1 

I ^ M IOC 

t wt K • « 

I «A i«» <• I 

I lA % 

II • 

I I — * 

II v» 7 I 

III M • O 

I I t <*<» • • 

• • ! ? 

• I I irt 


lOtfOttOooflitttt pao- 


I fl O ts B It ’ 


t«eaof> pcoasttPH***' 


• B 


0 * 

a £ 


K 

kJ 

«L 

O 

o u 

ht ►-< 
in •- 


UJ 
uJ in 


►V X 
»-> CL 


I 


I 

I I 

t 

I i 

I 

I in 

t 
I 


VI 9 £ 


U. O 

u. o 
o 
w X 
M 
lih S 
£ 


W • 

fM 
W *H 

u. n 


p 

p 


o 

p 


p 

p 


• t 

^ Q. lA I 
t £ »• t 

:z*\ 

a « 
• — ^ I 


• p 

n 

3 - P 


P 

I - I 

• t 

I « t 


t - ^ g 

X fO X • I 

X in o o • 

I ^ I 

I b: t 

I ui r 


I 

I 

1 

I 

I 

f 

I 


— — I 
t 

^ I 
KOI 


a I 

u I 

^ ■ ’ 
tw I 
I 


p 

p 

p 


p 
B 
« 

«• K • -tf P 

■ P ^ < » 

^ ^ P ^ < B 

{ ^ 

^ ^ I O I ST - 

r I ♦ I < ♦ B 

^ I K ^ * 

■ I sfr «£< ino 

< ki* I «« 1 

l«zin i^<< * o 

I «« cj u t * 

t < • «B I 

I ij a XL IPOCBCOPB 

! { 


m < 

in 

IH < 


r*» t • 

X i n \ 

in I J J 

ft 1 « t 

£ I -. Ift • » 

to 

= ««! * 
• -<01 

\ = I 

t £ 8 I 

, 

ft - — - I 


M I . ^ ^ — I 

O I • 

X in ut I 

ft ft •- • • 

•- I k- «C «» I 

I ^ ^ <D t 

C I 1>4 A <L 0 > I ' 

I in £1 — I 

I > .J I 

ft <081 

t Cl 9 t 

I t 

I - — — I 


«» 

< • 

rx 

< o 

< • 
•- 

< 

lA 

< • 

ir 

< *■ 

*- < X 

< < 

I — — — — 


4 
< 
r < 
•n < 


t 

^ o t 

t 

t 


in K 
u X r 
» T 

- X m -- 
r o IX g 
I g 

I 3. < ft t 

I < (0 <y I 


T • c « 


r B 


P 

P 

P 

« 


pm P . 

p t • 

8 1 VI • ♦ 
^ •- I KOI 

Jl 1^0 I 

3 - O P I » O * 

in J 2 * 5 

** I ” p ft • 

X I <» * 

. 1 — 


p 

(VI 

3* P : 


I ^ ^ - X^ 


: I < • 

I *1*, o • I 
; * • 3- -o » 
• O' > — • 

I ^ < ri t 

J = ! 

X £ 8 » 

ft •- O t 

{---! 


8 P 
*-« 


— — — — I 

• 

tM lJ I 
M • I 

M >- < CD I 

— < _l <3 I 
in cc Q. o t ■ 

— 0—1 

> _J 1 

< O ft • 

U o I 

t 

^ — ft 

p 

f*. p f*. 

< P M 
-« <o 
O P 

8 ft 

X P t- 

p 


. . — • 

ft t in K • • 

I U £ 7 t 

• - — =• * 

poiinz(x-i 

I o o <X I P 

I W M >. I 

I > < 8 I 

ft < o O • 

{ ! 


P 

P 

K 

C 

P 

P 


P 

P 

P 

K 

P 

P 


P 

P 


> K P P P P P ^ 


X 

t P o 


r«fi*r<f0<ifAin*n 


< P 
8 « 
»-« 


3 - < <n I 


— o I 


< P N 
•« 

r» P 




^ • • 


I — u 

I 

t < 

• ^ j t& I 

ft O 4 a. '3 I 

I tn 0—1 
t > .J I 

I < o ft I 

I Cl 9 t 

I I 

I — — — — I 


I 

ft 

vA »< • g 
— u £ » g 

9^ » r I 

M z - - ; 

w. a is» I i 

•* 9 - I 
> < ft I 
< o or t 
I 

X — I 


ft — - — I 

I = I 

t o I 

I k- • 1 

t ^ < O I 

I rs X ' I 

I r i 

I — LI t 

ft O I 

ft — 8 ft 

ft (A or ft 

ft ft 

I — — I 








E-3 


m 

1 

-p» 




i 

z 

3 

s 

h 

7 

a 

9 

IQ 

U 

12 

U 

17 

18 
I’ 
20 
21 
22 
23 
29 
2S 
29 

27 

28 
2’ 
20 
3t 
22 
33 
39 


fREON coolant loop HJSSJON nHE^.^270599.0^5EC OOH 005 


F F 

F 

f 

F 

F 

F 

F 

r 


FFFFFFFF 199) FFFFFFFFF 



3S 

F 


36 

F 


37 

F 


38 

F 


39 

F 


90 

F 


* 9 1 

r 


92 

F 


93 

F 


99 

F 


95 

F 

o 

99 

r 


97 

F 


98 

r 

o 

99 

F 


50 

F 


51 

F 

o 

52 

F 


S3 



59 


o 

55 



56 



57 


w 

SB 



59 



60 



6l 



62 



63 



69 



65 



66 



67 



68 



67 



70 



71 



72 



73 



79 



Hm «0 

T-I07*l 


p )lM2HUQfO 

r H«2HOD«0 
r Tw Ho*o 


1761 FfFrrrFrrFrFFrrfrrfTTFFrrrrrrrr 


f H»»|995tB 
p T" HD *0 


r T« 90,0 
r 


*I3,9 I ISB) I 

K a X n ff al ars t 

I INTeRcHa«GER » 


t&9) 


1 T" 97*0 


«60J 


1 payLoad hx if f f f r f fl payLoad i 
1 I I hla’ 1 


F 

F 

f 

F 

F 

F 

F 

F 

F 

F 

F 

F 

r 

F 

F 

F 

r 

F 

F 

r 

F 

F 

F 


X X X X « xl 

h»&oo»q I 

T*» 75t9 -- 


Q» 19?56* 


F T« 72*7 
F 


I *FFFFFFri ■ 

1 Q« 2?O00« I M*1995#5 1 Q»**29oOO* I 

F T»* 99»9 
F 

t77)F FFFFfFFFrr 
F 

F moH3h5*5 
F T» S&»0 
F 

(lOO)F FFFFFFFrFFFFFFFFl 

F T* 50i3 I 1 M»A5H,6 

F H»5CDt>*0 1 1^33# I T* H0»0 

F T*» 0O«t 


I |75) 1 

I OXTC'H 1 

1 X£ST«IcTO« I 
iftONMEHtl 

1 0* i 


<97 } 


t 


r fi«*i3NS,s 
r T« 9G#D 
r 
r 
r 


I aft boot 1 

r f 5 COtOPUATtS iFFFFrFrFFrrrPFFFr <96» 


1 162) 1 
I FREON Pu«P I 
) I 

I Qm 270r* 1 


F T« 82«7 
F 

tft3l F F F F F F.r r F 
F 


F h« 2 Sh *5 
F 


F H»«t7RStB 
F 


U9l 1 
MID body 1 
COLOPLATES 1 
1 

0« 17U I 


F T» B5*3 
F 

C95) FFFFFFFFF 
F 

FLASH EVAPf F'HBSOOOtO 

BYPASS LINE F T»i07U 

FFFFFFFFF <93) 

«■ «0 F 

F H«S000«0 
F 


I <65) 1 T* 81. R ) «66l I 

I FUEL cell ifC PC Tr rCl FUEL CELL i 
I HX 1 I waste HEAT \ 

\ |FC FC Fc fCI load I 

I Q» 3iJ20» I H«l90a#i 1 0«-3n20* 1 

T«|q*t,8 — 

F T«10Q,3 0RHKW» 8,6 

p P/Lkx» 7*0 

PM20-I 2*7 


Q« 


1 

0, 1 


Hj nO, 2 

I 

Oi I 


Q« 


H T» 

H H» 930*0 

H T»» 

H nm 930*0 

H I07«l 

H T«l07*i 

H l07«t 

H T«IU7«1 

H 

H 

H 

M 

1 {69 J 

) 

1 1711 

1 

t >i T 0 • 

1 1 

< Htn* 

2 1 

I meat LOAD! 

1 HfAT LOAOl 

1 

0« 1 

1 Qn 

0« 1 


r H«&000,Q 
F T* '♦OtO 

FFrrFFFFFFFFf 1791 
P ^ 


r T» *»o*o 

F 


t 1921 1 
I flash I 

t EVAPORaToX J 
i ,0 1 
1 Q» 0* I 


f ?• 90»D 
r 


1 172] I 

) Nh3 I 

1 boiler I 

I MFh3« ,0 I 

1 Q« Ot I 


F H>&000«0 
F T« 90«0 


^ gsE hx bypass Line 

<67)F FFFFrrrrFFFFFFFrFFFfFFFFrFFF 

p H« #0 

F ' 7 

K»500Q»0 F * 

P I 168) I I *70) I J 

p I HYORAULtCS 1 T«l07,l I HYoRaJJLICS Jn\07*l 
F p Fl HX NO# I IF F F F F Fl 


I 


IF ^ F F F F r I 


RADIATOR 1 
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BASIC CASE data 


space" station“'appCi ances''simulat ion 


SHOWER stall simulation 
7 H 19 2 


l‘<0?000 KBAs IS 0 

lso3ooa NSTR is 0 

1S07CO' ■ f BAS “IS 0 

IS03000 NSTr 15 0 


shower bleed air ELO.VUETER 

20 2 

SHOWER Inlet bleed air mixer 


1602C00 KnAs 16 
1603000 NSTr "16 
1605091 vary 16 

ITOPCCO •'BAS 17 
I 703000 ■ NSTR 17 
I70SC65 Vary 17 


shower Pan " 
SHOWER fan hEaT added 


(WATTS ) 


shower AIR splitter tO WATER SEPaRaTOR . 

SHOWER air Split ratio - back to .<aTer separator 


1257 


KRAS IP 0 

HSTr~16 do 
Vary lo <s 


I 002000 
1 803000 
180S065 


YSTEM BLeEO-OUT 


shower AiR splitter to . 

shower air split RaTIOi bleed out 


1907000 _ KBAS 19 
1903000 NSTr 1 «7 
1905066 Vary 19 


SHOWFR AlR inlet HEATER 
SHOWER AlP. HEaTER temp COnTroL (PI 

1 ..-2S 2 

" "sHciWER Water separator 


200?COO .. KB As _ 20 0 S^ 

20O3CO0 NSTr 2d 00 

2102000 KBA$ 21 C •*7 
2103000 ..NSTr 2 1 ... C3 

2207000 KBAS 22 0 s9 

2203CCC NSTR 22 Cl 

220S066 _VaRY_. 22 ,.66 lO 

2302C00 KbAs 73 0 2? 

2303000 NSTr 23 COOO 

2305065 Vary 23 BS 1 7 

2S02000 KBAS 2*) C 6 

2H03000 NSTr 2*4 01 

2502000 “KBAS "'25 2 2^ 

2503000 NSTr 25 00Q3 


Ho«EP Outlet air filter 


shower Water inlet tehp control 
cdntrplleo..shOwer water inlet temp (F) 


shower Water circulation pump 
SHOWER water pump HEAT ADDED (WATTS! 

17 2 

shower outlet air mixer 


CLOTHES ORYEP AIR FAn 




1 



2505091 vary 25 9j 20.3 


2602000 KBAS- 26 0 ‘<9 

2603CCO NSTR 26 02 

2605065 VARY 26 65 



2702000 - KBAS - 27 0 

2703000 NSTr 27 00 

2802000 KBAS 25 0 7 

2 8 03000 - NSTr —28 00 


29020CO KBAS 29 0 *19 

2903000 NSTr 29 01 

29050^6.— VARY 29 66 -155 

-! 3002000 KBAS 30 0 *)9 

j 30030CO nSTR 30 00 

31C2000 KBAS 3l 0 7 

3l030f>0 NSTR 31 00 



32C20P0 

- kdas - 

-^ 32 ^ 


22 - 

32030C0 

nS 7r 

32 

00002 

3205085 

vary 

32 

85 

10* 

3302000 

• KBAS- 

~3 3-> 

~ 0 

10*^ 

3303000 

NSTR 

33 

000 

3305065 

vary 

33 

65 


3M02crO - 

- KB AS - 

» - 

- 0 

10-- 

3M03cro 

NSTr 

3q 

000 

3M05065 

vary 

3H 

65 



3502000 - KB AS — 35 — 0 30 

3503000 NSTR 35 010110 

3S050C1 VARY 35 1 

35050^.J vary 35 5i 100. 

35C5CAO vary— 35.— 60 75. — 

350SC61 vary 35 6 iH,o 
3505068 vary 35 63 70, 

3505069 VARY 35 69 6|. 

3505070 - VARY... 35 -70 100.— 

3505072 VARY 35 72 18,0 

3505092 VARY 35 92 2.2 

3505093 vary 35 93 1.5 

3 50509 M . . VARY — 35 9R . R . 

RCOPOnO KBAS *10 0 R9 

*♦003000 NSTR MO 02 

M005065 VARY .. MO -.65 


MI02000 KBAS Mj 0 30 

M103000 NSTr Ml 010110 

MlOSOCl vary Ml l._ — 


M10505I 

vary 

H \ 

5l 

80. 

M10S060 

VARY 

N I 

60 

75. 

: M10S061 

VARY 


61 

1 tS 



CUCTHEs dryer air BLOT.ER heat (WATTs) 

-73-2 - - - - 35 

clothes dryer air inlet heater 
clothes dryer air heater HEAT,bTI'/HR (SET GPOlYI) 

6-2 filter 

87 0 1 33 0 1 29 

C LOT HE S-ft' ASHER W A T ER- M I XER - FROM - S Y S T EH 

28 0 > 30 

clothes washer Water temp control 
CLOTHES-WASHER .water. CONTROLLEO-INlET-IEHP 

29 0 1 6 ‘ 

clothes washer water filter 

~6~'o 1 -35 0 I 3 2 

clothes washer accumulator water mixer 

.31-0 1— 33 

clothes washer water pump 
clothes washer Y^ATER pump heat added (WaTTS) 

-32-0 1 c t 3M 

clothes V'ASHER recirculation water SPliTtER 
clothes washer recirculation SPlITTfR (SeT GPOlYI) 

-33- 0 --1-- 0 1 - 28 

clothes washer water splitter to accumulator 
clothes washer water splitter to ACom.(SET GpOlYI) 

.3M_0 1 31 

clothes Washer accumulator tan< 
clothes washer water Tank outlet flow (set GPOlYI) 
clothes washer accumulator tank wall temp 
ambient structure temp 

conductor* TAnk-TO-AMBIENT 
Tank max water weight, full (LBS) 
tank initial water weight 

tank Initial water temp 

tank pressure, PSIA 
tank thermal Capacitance 

UA, TANK w ALL-TO-FLU ID 

MAX. temp change for STABILITY- 

63 2 91 

DISH dryer air inlet HEATER 

DISH. dryer AIR HEATER HEAT, BTU/HR . ( SET _1 N GPOuYU 

M5 0 1 *<2 

dish washer accumulator Tank 

DISH Washer .water tank outlet flow (seT-GP.olyu 

DISH washer accumulator TANK WALL TEmP (F) 

AHBIEMT structure temp (F) i — . 

conductor. TANK-TO-AMBIENT 
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«r= 

i- 


*1105066 
6105069 
6105070 
6105072 
6105092 
6 105093 

6 1CSC96 . 

62C2DCO 

6203000 

”6302000' 

63030r0 

63C50F5 

6602000 

66C3CPC 

6605065 

*6502000 ’ 
6503000 
6505065 

”6602000 

66U30C0 

. 6702000 _ 
6703000 

6705066 

...6202000 • 
6KC300O 

6901001 
. 6902000 
6903000 
6905099 
6905 ! 00 

■ 5002000 
50C30CO 

. 5 102CD0 - 
5103000 
5105051 

55010m, . 
5502000 
55D50O2 
5505006 
.. 55D50D6 
5505007 
5505003 
5505009 
_55DS010 
5505011 
55050 I 2 
5505013 


VARY 

vary 

VARY 
VARY 
VARY 
VARY 
• VARY 


61 
61 
61. 
6 1 

6 1 

6 1 

-6 1 


68 20 . 

69 19, 

70 80 . . 
72 18. 

92 0.8 

93 0.6 
96 6. .. 


KBAS 

nstr 

42 

42 

0 7 
00 

49 

0 

KBAs' 

■> 3 “ 

”0 22 

‘42 

“0 ' 

nstr 

43 

00002 


r% r 


TANK MAX WATER WEIGHT FULL (LBS) 

TANK Initial water aeight (lbs> 

TANK Initial water temp (F) 

TANK PRESSURE (PSUl 

tank Thermal capacitance 

uA, tank iVALL-TO-FLU I d 

MAX.tEHP change for stability (F) 

1 -61 0 1 „ . 
dish V6ASHER ACCUHULATOR WaTER hIxer 


I 


dish washer water pump 


6 .J 


VARy 63 05 6.: 


K8AS 

nstr 

vary 

'kbas“ 

nstr 

vary 

KBA3 ' 
nSTr 

. KB AS * 
NSTR 
VARY 

KBAS ■ 
NST R 

JD*o 

KBAS 

nstr 

vary 

VARY 

KBAs’ 

NSTR 

.KBAs 

NSTR 

VARY 

1 D ® ° 
KB As 

vary 

vary 

VARY 
VARY 
VARY 
VARY 
_ V A R Y- 
VARY 
VARY 
VARY 


66 

66 

66 

'65" 

65 

*1 Ifl 

'^6'^ 

^6 

^7 

H7 

.. na- 

M8 

H9 
, M9 
M9 

^9 

'50 

50 

. 51 

51 
51 

. 55 
5 5 
55 
55 
. 55 
55 
55 
55 
-,S5 
55 
55 
55 


0 10 
DOO 
65 

0 "l O 
000 

65 

0 '7 
00 

_.0 4.9 

01 

66 155. 


0 -49.. 
□ 0 


43 C 


dish WASHSR recirculation water splitter 

DISH WAShCP RcCIRCUlaTION SPLITTCR (SET GPOLyIj 

b 


"44 


‘j ' 0 1 ^ ^ 

dish washer W.^TER SPLITTER TO aCCUHL'LAtOB 
dish Wa5hER water splitter to ACUHo (Set GPOlYM 


-87 Q 
_46„ □ U 


f 44 0 ' i 47 

DiSH washer water HIXER FRQH SYSTEM 


dish"' washer' water TEMP CONTROL " 
DISH washer water CONTROLLED INLET TE^P 


_4 8. 


.47^.0 ^ - 1- 


dish ^ W a S H E R *W a T E R "> I LTE R 
_-40 . 2 


,4 9. 


I DISHES WASHER/DRYER SIMULATION 
_ 0 70 .S 4B,,0 .1 — 

99^8.5^ FIRST time TO TURN ON CHRS) 

100 13, SECOND TIME TO TURN ON (HRS) 


-5 0 


0 4 9 
00 

O 23 ... 

00030 
9l 33*9 


-49 2 


dish dryer air FILTER 


-5D 2 . 


‘dish dryer A IR FAN 
DISH dryer air blower HEAT (WATTS) 


'5 I 

„, 22 _ 


1 0 UMHY—AR. 5 _ANCLJ:ABIN h/X sDrPLY,.CONDI.T.IONS. 

0 4 9 2 

2 65, TEMP (F) 

5 iq;7 PRESSURE (P5IA) 

Aic,. COND, VApOR FL0W#_L5/_HR 

^'•7 0 / ENTft, LIQUID FLOW 

6 .2425 N-C SPEC. HT 

928»92 N-CmOLoWTo 

10 58aa__ oxygen FlOW»„LB/HR 

~\l I9m\ DILUENT flow, LB/KR 

12 12, C02 FLOW, LB/HR 

13 D* TRACE COnTAM, 


'tZ-Ql-rOC P-’SIAO^ • iV^'[/.:^«[T-i^a 


SPC« flow I 





S60?000 
5603000 
5605CC I 
560S065 


sao?0!?o 

5H0 30 30 
5n0‘«0 I 6 
50D'»0 1 7 
5B05C7 1 
5no'*o7 ? 


AOOICOI 

6on7o':T 

0 u 3 ij 1 
1 

600*^ r},-*? 
60CSC1 C^< 
600SC J*=* 
6 0 Q ^ C 0 6 
f» 00Sn':7 
AOOSoon 

60CSC?? 
600^0 1 0 
600^0 I I 
hOD^P. 1 2 
600S01 3 

600^01 *4 
600*^070 
6003021 
6003023 
60030?^ 
6003ri?5 
600 '‘'C 76 
600 S 027 
600502 a 
6005029 
_6005o3D 
6005 C 3 1 
6005 C 32 
6005 C 33 
60 C 5 C 66 
6005076 
60050^1 
6005092 
6305093 
6005c9M 
6005 C 87 
6005 '^Ba 
6005090 
6005091 
6005092 
6005 C 93 
6005 C 96 

6305097 

6005099 


ID*** 

S 

MS ! P 

V Al» Y 
VAT Y 
vary 

VARY 

vary 

V A r9 Y 

V A U Y 

vary 

vary 

vary 

vary 

VARY 

vary 

vary 

vary 

vary 

vary 

vary 

vary 

vary 

vary 

vary 

VARY 

vary 

V A R Y 

vary 

Vary 

vary 

vary 

vary 

vary 

Vary 

vary 

vary 

vary 

vary 

vary 

vary 

vary 

vary 

vary 


0 1 0 
.. coc 

I 1991 
65 .5 


7 2 58 ^ 
ars supply splitter to galley, Hygiene areas 

FLOW TO galley FROM SYSTEM (L 8/HR) 

ARS AlR S^L IT RATIO 


0 3 3 

03 
1 6 

17 000CC35 

71 

72 303. 


CRrvVMEN IN OAI.lEY 

NO. OF MfN in GALLFY (SET IN GPOLYI) 

galley CPEWMFN cope 

GALl E Y A t R E!.0 \v ♦ ERm 

rpc*Pf»AN max HEaT STORAGE, BTU 


6C 60 


1 galley 
V 1 7 

- 7 I 4 - ^ 

1 '(‘' 3 ?. 

? 7’J» 

M iH.7 .. 

5 «‘<I 5 . 

6 27 . 


COMPARTmO.T 


inlTlAL C0«0lTI0f4S 
-53 


P .?‘)75 . 
9 20,92 

I 0 13 76. 

I I 3368. 

1721. - 

13 C . 

1 *• C • 

?0 l?78, 

2l 7 0. - 

2 3 r<.7 
7h 1270.5 
25 7.5 

2 6 0 • 

27 .7H75 

28 28.92 

29 279. 

30 970.5 , 

3 1 6 • 


FLO", LD/HP 

rmr (f) 

PFF5S (PSIAJ 

■j-c ri.o6, lb/hr 

COMP. VAP03 FLO-V, 
FMTF. Lloino 
N-C SPEC. M7 
M C 4' 0 L . 'V T 
nXvPFM Flow, Ln/MR 
niLiirMT flow, lb/hr 
f02 FLO.V, lb/hr 
TPPC r . Com TAM. 


I too. 

70. 

I too. 
1 IOC. 
365. 

7C. 

I5. 

C • 3 
3*2 
C*2 


lb/hr 


SPL. Flow 1 
5 FC. FlO" 

SEC . TEMP 

SS^C. PRESS 
SEC. N-C FLOV 

SEC. C-V FLOW 

FEC. LtOuin FLO.V 

SEC. M-C SPEC. HT 

SFC. N-C MOL. WT. 

SEC. 02 FLOW 

SEC. OIL. FLOW 

SEC. C02 FLOW- 
SEC. tr. font. 

SEC. SPL. FLOV 1 

GAl-l-CV C'RIM SrNStPLE HEAT L0A0 ,..B 
SALLEY caoin Wall area. so ft 

SALLEY AREA '.•IAlL TEM? (F) 
FHPrMSHlMSS area <50 FTJ 

FilPPtSHlMSS HEaT COMOIICTANCE 

FURMIShImsS 4 ‘AsS CONOOCTANcE 
SALLEY DfSISM temp., deg F 
S/U EY TfMP tolerance, ofg f 

5AI.LIY DFStGN PRFSS-.JRE, PSJA 
SALLEY pressure TOLESAnCF, PSIA 
SALLEY 02 design PRESSURE, PSIA 
GALlEY 02 PRESSURE TOLERANCE, PSIA 
galiey design oE'.'i point, DEG F 

SALLEY DFIV point TOLERANCE, 0E6 E 
SALlfY MAX C02 PRESSURE, M.M HG 


BTU/HR (GPOLYI) 
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600S 1 0 I 

VARY 

60 

lOi 

250* 

6005122 

vary 

60 



6005139 

vary 

60 - 

139 

3750. 

6 102000 

KBAS 

61 

0 

10 

6103000 

nstr 

61 

001 

6201001 

I 0 • » ’ 

62 

1 

FREE2I 

6202000 

kbas 

62 

0 

7 1 7 

6203000 

nstr 

62 

Old 1 1 1 

6 2 0 '* 0 1 7 

K ARY 

62 

1 7 



6205C5 1 

VARY 

62 

51 

-10. 

6205055 

VARY 

62 

55 

S5. 

6205053 

VARY 

62 

58 

20« 

620506 1 

vary - 

62 

61 

.08 

620506H 

VARY 

62 

6q 

« 7 

6205066 

VARY 

62 

66 

-1C. 

6205068 

vary 

62 

68 

2.6 

62C-506? 

. VARY — 

62 

69 

2,09 _ 

6205077 

VARY 

62 

72 

2 6*35 

6205073 

VARY 

62 

73 

.2 

62C5C7H 

VARY 

62 

7s 

10. 

62C5075 

V A R Y ... 

. 62 

75 


62C5078 

VARY 

62 

73 

6.3 

6205082 

vary 

62 

82 

IB* 

6205083 

VARY 

62 

83 

-15* 

6205089. 

. VARY- 

62 

8S 

-5 • 

6205100 

VARY 

62 

ICO 

1 *C7 


galley max trace contam., ppm 

galley AiR leakage, LP/HR 

galley caBIM Free volume (Cu.Ftj 


60 2 


galley air splitter to freezer 


62 


63 


6205 I 02 
6205 103 
6205JOM 

6205 1 20 
6205121 
6205125 
6205126 
6205 1 27 
62C5 I 28 
620512V 
6205 1 30 . 

6302000 
6303000 
6305001 . 

6H02C0O 

6M030CO 

.6M050<,5 

65020C0 

6503000 

' 6602000 
6603000 
6605002 
6 6050C‘« 
6605006 
66050 10 
660501 1 


VARY 

vary 

V A R Y _ 

vary 

VARY 

VARY 

VARY- 

V ARY 
VARY 
VARY 

, VARY. 

KBAS 

HSTR 

.vary. 


62 102 
62 103 


•23. 


1 


.62 lOR -lOt 
62 l20 ♦08 

62 l2l 70, 
62 125 8,25 
.62126 1 1 #5 
62 I 27 
62 i28 
6? 129 
. 62_13C 


11.63 
1 1 .75 
15,75 
15,88. 


63 0 to 

63 001 

.63 1 


”Wltlf~SELF contained COOLING UNIT 
61 2 

Q freezer initial chiller operation . 

■ food outer surface temp (F) 

UA, aMOIF'NT GAS-TO- I NSUL at 1 on surface 
radiation -conductor. '.VALL-TO-FREEZiR SURFACE 

CONDUCTOR. STRUCTURE-TO-FOOD OUTER .SURFaCE 

thermal CONDUCTOR THRU INSUlaTION 
CONTROL tEMP (F) 

TOTAL internal VOLUME (CU^FT) 

PACFACEO food volume (CU FT) 

dry food V.'EIGHT ILBS) , „ -B r- 

FRACTION of FOOD ASSIGNED TO OUTER SURFACE 

freezer inner shell thermal mass 

THERMAL^^CONDUCTOR^^UNFROZEN food INNE*^-To"=OUTiER‘ 

CONDUCTOR, cooling CO I LS-T O-FOOD SURFACE 
LO.Y TEMP LIMIT TO TURN CHILLER OFF ( r _) 

high TeNP limit TO turn chiller on _!<• ) 

chiller unit cop 
evaporator design temp tn 
cooling coils thermal mass dry 

CONbuCTOR?COOLING^COILS-TO-CHlLrER"UNir^^^ 

chiller unit Temp ifi attached to cooling coils 
first door opening time <hrs> 

second door opening time IHrs) 

thiro oooR opening time (HRS) 

fourth DOOR OPENpiG TIME (HRS) 

FIFTH DOOR OPENING T 1 HF (Hrs) 

SIXTH-,-. DOOR, opening. TIME. (HR5)_ 


60 


ro 


-CD — 
cn 


kbas 
nstr 
V AR Y — 

KBAS 

6M 
6H 
6 ^ 

0 **9 
02 
^5 

-63 

65 

0 6 

62 

nstr 

65 

01 


kbas 

6 6 

”” 0 6 

65 

nstr 

66 

01 


vary 

V A R Y _ 
VARY 

66 
6 - 

2 68, 

1 . a 


66 " 

6 17 . 


vary 

66 

10 1023. 


VARY 

66 

11 3368. 



61 7 2 

galley air splitter to dishwasher 
OISH-DRYeR. AIR-INLET FLO-«_(SE.T IN_ GpOLYl I 

2 6S 

_CABIN_FAN*I^^H/X*HEAT°LOAD_tBTU/HR)-_SE.'L_IN_GPoL.YL 


c 

< 


-51 2 

galley air mixer 


66 


o 


. - - 2 80 
galley air mixer - initial conditions 
temp (F) 

pressure IPSI a 1 

COND. VApOR <LB/HR) 

OXYGEN FlO’6 ILB/HRI 
diluent flow <LB/HR1 


I 

H- » 

I 

( J 1 


c> o 


66050 I 2 

6002000 
6003000 
600HC16 
680M0 I 7 
6805071 
.6805072 . 

7001001 
7002000 
7003000 
7005001 
7005002 
700500M 
7005005 - 
7005006 
7005007 
7005008 
. 700500? 
7C050 1 0 
700501 1 
700501 2 
. 700501 3 
70050 1 M 
7005020 
7005C2 I 
7005023 
700502M 
7005025 
7005026 
7005027 
7005C28 
7005029 
7005030 
. 700503 1 
7005C32 
7005033 
7005C66 
7005076 
700508 1 
7005082 
7005083 
700508') 
7005087 
7005088 
7005090 
. 700509 1 
70C5C92 
7005C93 
7005096 
. 7005097 
7005CJ99 
7005 1 0 1 
7005122 
.7005139 

7 102000 


K8A5 
USTr . 

K ary 

KARY 

VARY 

.VARY- 

I D* • 

KO AS 
NSTr 

vary 
vary 
Vary 
v ARy - 

VARY 

vary 

vary 

vary 

vary 

VARY 

vary 

V A R Y._ 
VARY 
vary 
vary 

VARY 

vary 

vary 

vary 

vary- 

VAR Y 

vary 

vary 

vary . 

vary 

vary 

Vary 

VARY 

vary 

vary 

vary 

vary 

Vary 

vary 

vary 

vary, 

vary 

vary 

vary 

vary 

vary 

vary 

vary 

. VARY 


68 0 3 3 

60— 00 

68 16 

68 17 0000005 

68 7l 20. 

6 3 7 2 _ 3 C 0 » 


C02 FLOW 1ub7hr) 

-56 2 _ 

CRFWf'EN IN hygiene area „ .T “ 

NO. OF HfN in hygiene area (SET IN GPOlYD 
CREWMEN CODE 

hygiene area air Ft.O.V, FPM 
crewman max he at. storage » _0TU 


I hygiene 
0 1 20 
• 02n0000000 

1 <43 32 . 

2 70 . 

<) 18.7 

_5 <i3 65. 

6 I 7 « 

7 C* 

8 ,2<)25 

9 28.92 

10 1018. 

II 3330. 

1 2 2 1 . 

13 0 • 

18 C • 


1 1 00 .. 

7C. 

1 1 00 . 
1 ( 00 . 
3*5. . 
70. 
l5. 
18.7 
0*3 — 
3*2 
P. 2 

SO. 
l5. . 

7 • 6 
250. 


compartment initial conditions 

77 2 -'58 2 

FL8W, LB/HR 
temp (E) 

pressure (PSIA) 

N-C FLOW, lb/hr ... ._. 

COMO. VAPOR FlO-V, LB/HR 
FMTR. liquid 
N-C SPEC. HT 

N-C MOL. 'A'T. 

OXYGEN Flow, lb/hr 
diluent FLCvY, lB/HR 
C02 ELOiV, lb/hr 



$PL • 

FLO-.V 1 


SfC. 

FlO.v 

• 

src. 

temp 


<;r r . 

PRESS 

5 

5e:c . 

N-C FLOW 


SFC. 

C-V FLOW 


sec. 

LIQUID FLO'V 


- sire . 

N-C SPEC. HT 


src. 

N-C MOL. WT. 


s^c . 

0 2 F L P W 

1 

Sr C . 

DIL. FLOY. 


. src. 

C02 FLO'*) 


src . 

TR. CONT. 


src. 

SPL. FLOW I 


70.) 39. 


__ , "ALL ARE A , so ft 

WALL temp (F) 

Fl'RMlSMlNGS area ( SQ FT) 
FUPMISHINGS hEaT conductance 
_ FURNISHINGS MASS conductance. 
DESIGN TF ME , Oe6 E 
temp tolerance, deg F 
Design prfssurEi psia 

— PRESSURE TOLEPaNCE, PSIA 

02 rrSiGN PRFSSUPE, PSIA 
02 PRESSURE TOlERANCE, PSIA 
OESIC'M DFtt point, DEG F 
OFW POINT tolerance, OEG F. ... 
MAX C02 pressure, HM HG 
MAX TR.^CE COnTaM, PPM 
air leakage, L8/HR 
. free volume (Cu FT) 


IN GP.OlYI) 


D2-US571-2 


/ 


7103000 

nstr 

7 1 

001 


7 IC5C01 

VARY 

71 

1 

i 

'7202000 

KBAS 

- 7 2~~ 

~ 6 " 1 b 

-7T : 

7203000 

NSTR 

72 

OCI 


7205001 

VARY 

72 

4 ‘ 


■7302000 

KBAS 

*73 

~n 10 

-72 ; 

73030C0 

nstr 

73 

col 


7305COI 

VARY 

73 

1 


7402000 

KBAS 

7M 


-7 3 

7403000 

NSTR 

7M 

02 


7405065 

vary 

7M 

65 


'7502000 

~'k BAS 


0 6 

80 

7503000 

nstr 

75 

00 


7602000 

. K8AS 

_ 76 .. 

....0 6 

75. 

76C3000 

nstr 

76 

00 



HYG' NE AREA AIR SPLITTER TO SHOWER 
air flow to shower - SET IN GPOLYI 

2 2 73 

hygiene area air SPLITTER TO DRVJOHN 

air flow to DRYJOHN -set in gPOL^I 

_ 2 • ~ 7 H 

hygiene area air splitter to CLOTHESWasHER 
air flow to clothes dryer - SET IN GPOLYI 


7702000 
7703000 
770 0C2 
7 7 0 i' C 0 4 
770SCr.6 
77DS0 10 
770S0 1 I 
77050 1 2 

. 7802000 . 
7803000 
7805020 

7901001 

7902CC0 

79C30C0 

. 8002000 - 
8003000 

8302000 
8303000 . 
8305020 

8 H 02 onn 

. 8403000 . 

8S02000 
8503000 
. 660500 1 
850505 I 
6505054 
65050S5 
. 8505057 
8505058 
8505060 
850506 1 


0 6 

_ 00 

2 68 . 

4 14.8 

6 38. 

.10 1014.^ 

11 3330. 

12 21 , 

_ 0 10 

002 

20 

_ 1 WIPE. 
0 49 
00 


0 10 
. 002., 
20 


0 30 
0001 10 

1 

5 1 :50> 

54 75. 

55 20. 

57 75. 

53 10, 

60 75. 

61 4,0 


hygiene area fan and H/X - 

•CABIN fan; H/X HE.VT LOAD ( 8 TU/HR)- SET IN GPoLyI 

So 2 -1262 76 

hygiene area air HIXER 

75 2 -- .—-25 2 77 

* - hygiene area air HlXER 

76 7 -74 2 

hygiene area. . air .t'lXER__r_JNI.XlAl,_CONDITlONS. 

TEMP IF) 

PRESSURE <PSI A) . 

COND. VApOR (LB/KR) 

oxygen flow (LB/HR) 

diluent {LB/HR) 

C02 flow (LB/HR) 

70 2 - _ - 2 ... , 79 

" * AIR SPLITTER TO WIPE WeTTING UNl< 

AIR flow to wipe WETTER (SET IN GPOuYll 


.WET..TING UNIT. 
-78 2 


I (l 2 —79 2 75 — 

_ SH0 WER,"WIPE wetting unit 

° * WATER SPLITTER TO°WIPE WtTTING UNIT-^A- 

WATER FLO^^' WIPE WETTER (SET IN GpoLYlj 

n 1 7^ 0 1 

water. M I XER-- SHOWERf W I PE-WE TT.I NG_UN I.T.. 

Q 3 

° * WASH/RINSE water storage tank 

wash water usage rate (SET IN GP''' Y IJ 

WALL temp, deg F 

W§!!fIo5*lU£c'fjR“S«lL-T0..«,ii:XT 


-11BB71-2A Roviied 10-1G-7G 


/- 


H 


I 

I—* 

r\> 


•f 

>1 


. I • 




0SOSO63 

Ro 0 ?» 06 n 

05050/''? 

0505070 

0505072 

05050R2 

0505092 

05C5O93 

05050^'^ 

05O5U95 


VAr?Y 

Vary 

Vary 

VARY 

VARY 

VARY 

VARY 

vary 

vary 

VARY 

Vary 


fl5 

05 

05 
B5 
85 
85 
85 
. 05 
85 
85 
«5 


63 75. 

6 0 3 • n 

68 

69 3GC« 

70 !/>□• 

7 2 M 5 . 
02 30f3. 

^92 9-9 . 
93 ?5. 
90 0 . 

95 


“ imsulat I o^^5URF^r^ tfmp (f> 
tamk insi'iatioh conductor 

MAX FLUID V<flGnT , LPS 

.initial fluid — 

initial fi.i'II’ tlmp j deg f 
fluid pressure, psia 
p. ITIAL fluid weight, LBS 

tlHCLL THE^HAL capacitor — 

r 0 *‘1 0 'J C T 0 P , F L U I 0 - T 0 - W a L L 

wIsh'watfr^h^ater'^heat^ 


fl6Q70D'5 
^03000 


06C _ _ 

0605001 


KR As 
MSTr 
Vary 


86 

86 


) 10 
>01 


83 n 


I 


1 0 1 

WATCR SPlITTor TO SHo'^FR ,-pnivtl 

SHOVifR ‘/UTEn Flow ,lb/hr (Set in opolyu 


67 


0707000 

0703000 

8705001 


KBAS 

NSTr 

Vary 


07 

87 

07 


0 lO 

001 

I 


-0 6 0 


, n ' I 56 

'' vat^r 5Pt ITTFR to CLO^^^FS/OISH »VaSHER5 

CLOTHFS if ASHFR^«aTER FlO’V,. lb/hr (SET IN GPOl-^‘_’_ 


B802000 

8803000 


KBAS 

NSTr 


PB 

80 


'O 7 

CO 


0S 0 


I -3M 0 

•.VMS water mixer 


. 8*’o?nc>o 

n903300 


K !) A 5 
f!STR 


.8 9. 
89 


n .7. 
DO 


.80. 0 


1 -85 0 

wMs water mixer 


69 


.• 91 


9001001 

'»C0?{3D0 

900S020 

900SQ21 

9005023 


ID* • 

KB AS . 
Vary 
vary 
vary 


90 

90 

90 

90 

90 


1 reverse, osmosis 

0 6 9 7 a 

20 10. 

2| 05, 

2 3 '»S. 


UNIT - initial conditions ^ 

']nitiau”flow from R/0 module ILB/HR) 
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0015 R OOOOID WSHRT 
00 I 2 000077 WTMB 

0015 R 000020 A'AIpe 
0011 OOlOCO xklic 


PP05 COOC07 KiMTl 
0015 I COOCOI LPPjSr 
0'"07 0CCCI7 MiXSSl 

0012 C00053 Nr 

0r>03 CC002'* NC^i 

0003 'CCC026 f.fXv 

01^03 OCO037 N<T 
0003 000035 K'pARS 

00 15 I C 0 0 0 0 0 ». p w i S € 
0003 C0C0^7 nsF 

O'"' I 5 I COCO 1 ! ns'-pT 

0 0 0 3 G '■ 0 1 r 1 V 

0013 L CCCOCO FCTP 

on 1 1 000153 PhOO 

0007 R C0P032 TIMpmx 
0017 R OCOOCO value 

001 1 r00‘‘63 y ISr.AS 

00 15 R COCO I 7 •AiF-r 
pr>c7 O0C035 V,r.« t x 
00 1 1 C00**6H 

OOll 00077;^ XKGaS_ 


0007 I 000CQ5 KSYPAS 
0005 OOCOI 1 KKIT3 
0007 CCOOIH HAXCl 
C:03 I 30CC17 N 
C003 000022 NC _ 

0000 1 OOOOOl NOUM 

0003 0D0C27 Nk 

0C03 000033 NlFL 

0012 OOOOSR NPFS _ 
00 15 ■ 0000 I H NrEF ' 

0C12 0C006R NSFST 

Cr-03 I 000056 NSTR 

C''C3 000102 NVT 

OOll ■ C03I5H RhO 
0007 L C0CC30 STEADY 
0007 00003'! THIN 

0C12 aoOOTM VISCA_ 
0016 R 000000 VV 
0015 R 00000'/ wshwr 
eel 1 000630 ftTHCON 

DOll 000634 XK _ 
001 1 000633 XKO 


0007 _ 000006 KTRANS 
0005 000012 K1VIT4 

0007 000015 HAXLP 

0012 000052 NA 

D0C3 000023 NCAB _ 
0007 000021 NEWDt 

0003 CC0C30 MKEX 
CC03 000034 HP 
0012 000055 nPFST 

DOlO -DOPrOl NRSCS 
CGC3. CG0050 NSFT 

0003 ocrioc nsubr 

0007 _ 000025 PGH1N_ 

0012 " OOOC72 RhOA ■ 

0007 R 00C031 TIME 
0015 R 000C13 TSHWr 
0012 _OOC!C)75 VISC8_ 

0015 R C00C05 WCLO 
coil OOC-465 V,7M 
OOll CQC631 A'THOIL 

COl 2 _ CCCIOO XKA 

0QC3 C00103 Y 


CPOS C00006 tcwiT 
COCC I 00CCC3 L 
0007 000016 MaXSLP 

CC03 0C0020 NAl 

con onoono ncasf 

00c3 I 000025 NEXT 
0003 I 000031 NKS 
0007 0000?3 fjPASPO 

C003 000037 npFT _ 

0003 OCCOuft NS 
C015 I 0rC0l2 mshflo 

0005 0CC0)3 nUFF 

C0C7 _ CC0026 PLMIn_ 
0012' 000073 RhOB 

0000 R DCOOOO TIHEH 

0006 000000 V 

00| I 000317 VISC0_ 

0015 R C 00006 v>.ris 
0012 CCC076 \ntlA 
con 0GC632 y.THTC 
0012 OO0l0l_XKB 


subroutine GPOLYI 

.common /COUP/ DSl 15) .N.NAI .NBl ,NC,NCAB,NCFL.NEXT,NEXV,nK, 

J NKEX ,NkS ,NKT ,nLFU ,HP .NPASS »NPF ,NPFT (6 ) iNQ ,NS ,NSF ,NSFT (6 ) , 

2 NSTR ( la ) .NSUBR ,NV ,NVT ,Y ( I , ) 

COMMON /RARRAY/ 1HAXR,R(1) 

common /ECLSTl/ KCH0 UT»KPrNT,KPTINV« 4) iKWlTiKWlTI |KWIT2, 

1 KftlT3,KWlT4,MUEF 

Common /kanov/ k ' 

-Common /hisc/ otime,grav,<flsys.koutpt,kporop,ksypas,kTrans, 

1 LPSUM(5) ,MAXCIiMAXLP,MAXSi P.MAXsSIfMCOMPS,NEAOT,NLAST,NPASPD, 

2 MlNSS:,PGMIN,PLMrN,START,«;TEADY,TIME,TlMEMX,TMAX,TMlN,WTMAX 

COMMON /Case/ nCASE.NRSCS 

common /PROPTY/ CP0,CP(V9i,CPC0NL.CPC0NV,CPC02.CPDlU.CP0XY,CPTC 

1 GAMGAS,RHOO.RHOlV9).VlSCO*VlSC<99),VlSGAStWTMO»WTM|V9),WTMCON, 

2 WT moil, VVTMTC, XKO, XK(99l,XifGAS,X|CL10, VISLIO 

COMMON /SOURCE/ A(19),B(l9)»CPA,CPB,IAl,IBl , N A i NB , NP fS » NPFST ( J T 
I NSFS.NSrSf 16),RH0A,RH00,V|SCA,V1SCB,WTMA,WTHB,XKA,XK0 
COMMON /port/ POiVER 

COMMON /VtOC/ IP,!S,IC,lO,lv»lVT.lEX,!NEXK 

common /APPLNC/ NPHAEE,LPHAsE,NVCD,NShWR,NJON,«Cl-0,WDlS;V»SHwR 

• , rtSHRT iNSHRT .NSHFUOiTSHWR ,nREF,HX60.HX70»WIPE,VVWIpE 
LOGICAL POrtER 

dimension V ( 1 I ,K < 1) 
equivalence (V,K) ■ ■ 

LOGICAL STEADY 
T I MEM«T I ME/36C0, 

Oth»OT IME/36CC. 

If (N.GT.69) go to 10 
IF (N .EQ. 26) GO TO 2600 

IF IN ,EQ, 33) GO TO 3300 

_1F IN ,EG» 34) GO TO 3400 

IF IN ,E0.-35)'g0 TO"3500 


GPOLY 
GPOL Y 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 
GPOLY 


GPOLY 

GPOLY 

GPOLY 

GPOL'' 


I V2-l,Z9'JTl|-2a 




00136 
CO 1 HQ 
C01H2 


I 

ro 

ro 


i ■ 

■'i 


33* 

3H* 

35* 


CO 1 HH 

36« 

CO 1 H6 

370 

CO ISO" 

380 

00 152 

390 

C015H 

*tOo 

C0I56 

M 1 » 

CC I 60 


00)62 

*i3o 

CO 1 6H 

HHO 

Co I 65 

*t S o 

00167 

^60 

0017 1 

M70 

001 73 

^80 

CO 1 75 

^90 

PC 1 77 

5 C o 

rr.2oi 

S \ o 

0C703 

520 

CQ706 

53* 

■ 00207 

5^0*“ 

002 1 1 

550 

0C2 1 3 

560 

00215 

570 

CC2 1 7 

S8 0 - 

0022 1 

590 

CC223 

600 

00225 

6 1 • 

CC225 

620 

00226 

630 

00230 

6M0 

0023 1 

650 

00232 

66 0 ■ 

00233 

670 

03235 

680 

C0237 

69* 

CC2H0 

700 ' 

O02H0 

7 1 o 

002H 1 

720 

002H2 

730 

0C2HH 

7H0 

0 0 2 H H 

75o 

002HS 

760 

0P2H6 

77* 

■ 00250 

760 ■ 

00252 

790 

CC253 

600 

00255 

8 1 o 

■ 00255 

8 2o 

00256 

830 

00257 

8 8* 

00260 

850 

• 00262 

860 

0026H 

87 o 

00265 

680 

00267 

890 

"002 7 1 

"900 


IF (N .EQ. HO) GO TO HOOO 
IF (N ,E0 ■ 

IF (N ,ZQ 
IF ( N .EG 
IF IN ,E0 
IF I N . E 0 
IF IN .EG 
IF IN .EQ 
IF IN .EG 


10 . 


IF IN .Eq, 
IF ( N . E Q , 
RETURN 
IF IN ,EQ, 
IF IN ,EQ, 
IF IN . E Q , 
IF IN .EG, 
IF IN .Eg, 
IF IN 


HI) GO TO H lOO 
HH| GO TO HHOO 
H5I GO TO HSOO 
56) GO TO 5800 
60) GO TO 6CC0 
61 ) GO TO 61C0 
62) GO TO 62Q0 
63i GO TO 63C0 
6H) GO TO 6HG0 
60) GO TO 6300 


2600 

2650 


70) GO TO 7000 

7 1) GO TO 7 ICO ■ 

72) GO TO 72C0 

73) GO TO 7300 

7H) GO TO 7H0C 

73 ) ■ GO TO 7600 

IF IN .EQ. 83) GO TO 63C0 
EG, 85) GO TO 85Q0 

EQ, 86) GO TO 8600 

Eg, 67 ) GO TO 8700 
IF IN ,Eq, 93) GO TO 9300 
IF IN ,E0. 95) GO TO 9500 

IF IN ,EQ, 97) GO TO 9700 

IF IN .Eg, 120) GO TO 12000 
IF IN ,Eo, 121 ) GO TO 12100 
IF IN , EG, 122) GO TO 122C0 

R P* T 1 1 R M 

C'uOTHES DRYER A 1 R HE aTER "CONTROIT 
IF INPHASE, EQ, 7 ) 60 TO 2^50 
NSTR I 1 )*=0 

RETURN 

0UH»VVI6,72) ■ 

IF (CUM.LT, 135.) R{65)=2H0. 

IF IDuM.GT, 155.) RI65)=C;, 

NSTRII)=2 

return 


IF IN 
IF IN 
IF IN 


I 


CLOTHES WASHER WATER C I AT^/OUT SPLITTER 

3300 ,0R V Nf"HASElEQ#6)_Rj65)»0#0 


: '^^^CUOTHES washer water SPUiTTER to accumulator 

3H00 ^p*(f’jp°^5£^fjE,6 ,0R. '■ V ( 35 . 1 9 > , gT . 69 . 9 ) R ETU RN 

IF I A ( I ) ,GT, ICOO, ) AIl)*275,^, 

R(65)oI69.99-VVI35«69))/0TH/AII) 

IF IR (65 ) ,6T . I . ) RUE ) «1 * 


Q 

< 


R F T U R fJ 

clothes washer ACCUMULATOR" OUTLET" FL0W"“C0NTR0ir 


3500 R I 1 ) =0 ,0 

l^j^XT=31 * 

If I NPHASE* I NPHASE-7 ) ,nE, q) GO TO 3520 

IF I T I ME-VV 16 » 1 C8 ) oLT. 200.) GO TO 3520 

NEXT»6 

3520 IF I NPHASE ,NE, I ) RETURN 

IF IRI69) ,LT, 5,5) RETURN 


CO 

I 

on 


■R(I )« (Vv(6iI02'.-VVI6,96) )“/0T I hE«3600 . • T.OO 1 


I 


t 


00272 
0027H 
CD? 75 
CC277 

002 77 
00300 
C0302 
C0303 
CC304 
C03C3 
003C7 

003 1 J 
0(33 12 
CC3 1 2 
003 13 
003 I *1 
003 15 
0C3 1 7 
C032 1 
C0322 



00326 

1 I 2* 

"n 

D0327 

113* 

1 

C333 1 

i 1 S « 

ro 

CC332 

1 \ 

U) 

f ■ cc3:*i 

1 I 6» 


1 C033M 

117* 


j C0335 

118* 


1 00336 

119* 


003‘lQ 
003 S I 
C03‘f2 
C D 3 4 *1 
CC3H6 
003H7 
0035 1 
0035 I 
C0352 
00353 
0035*1 
00355 
CO 355 
CD356 
C0356 
00357 
00357 
C0360 
003/> I 
C 0 3 * 1 
Cc 362 
00363 
CC366 
003 7 I 
OQ37I 
00372 
003 73 
00375 


IF (R(l) «6T, O^Ot) R(l)*30n» 

■ 0uM = R{69)/DTIHE»3600» *.'?5 ” 

IF (Rtn »GT. DUM) RlMoOUH 
return 

DISH DRYER AIR HEATER C0nTR0L__ 

30 If (LPHASE.EQ.7) GO TO q050 
NSTRC I )*=0 
RETURN 

50 DuM = VV(*l9,72> 

IF ( OUH ,LT . I 35 , I R(65)«7<>0, 

If (OUH, GT. 155. I R(65)=D* 

NSTR ( I I =2 

return ^ 

DISH WASHER ACCUMULATOR pUTUET FLOW CONTROL 
30 R ( n =0. 

MCXT=H2 

__ IF (LPHASE* ( LPHaSE-7 I .nE, o> GO TO *U20 

!F (T1HE-VV(*19,iOC» •LT. 20o»> GO TO *1120 

NEXTCH9 

20 IF (LPHASE.NE. 1) RETURN 

IF (R(69) ,LT. 3.) RETURN _ 

R(I> = ( W ( *<9 , I 02 I -VV ( *19 ,96 ) 3 /Dt I ME *3600 • • 1 » 00 1 

IF (R(l) ,GT, 300.) P(I)=30o» 

DUH-R ( 69 ) /DT 1 KE«36C2« *.'75 

IF (R(l) ,GT. DUM) R(l)=OUH 

RETURN 

DISH WASHER WATER C I R CUL A T E /OUT SPLITTER 
30 R(651 = l ,0 

IF (LPHASE.EQ.3 .OR, LPH A SE . EQ . 6 )_R ( 65 ) »0 . 

■return 

DISH WASHER WATER SPLITTf^ TO ACCUMULATOR 
00 R ( 65 1 =0 . 

IF (LPHASE.NE. 6 .OR, VV ( *H . a9 ) , gT , 1 9 , 9 ) RETURN 
IF ( A ( I ) .GT. 1 COO. ) A(l)r:I50. ” 

R(65) = (19.99-VVI*U,69M/0TH/A(l) 

If (R(65).GT.l.) R(65)®I. 

RETURN 

SET Number of crewmen in gallev'area 
00 DUK=V ALUE ( 58 , T IhEH ,0* ) 

R(a3)=DUM 

K(NKS*1 ) = IFIX(DUM*,J I 

Return 

galley cabin sensible HEaT addition (EQUIP., LIGHTS, ApPLl( 
DO R(661 = 1000. *99(95,53) ♦ 1 3 , , V V ( 6 2 , 5 3 I +3 . • 9 9 ( 97 , 5 3 ) ♦99(**9,53: 

. • *99 ( M 1 ,53 ) 

RETURN 

SET AIR FLOW TO FREEZER cO^DENSER 
DO R(1)'>13.*6H, 

return 

decrease freezer air FLOw EOR-ONLYTT-REEZER 
DO A(I1=a(II/13. 

Do 6220 L'iS,!*) 

20 IF ( (L-8)*(L-9) ,NE* 0 1 . A 1 1.) - A ( L,)_/_l 3„» 

RETURN 

DISH DRYER AIR INLET FLOw SET 
DO R ( I ) “O. 

IF (LPHASE,EQ.7}_R< 1 )"38* 

■'RETURN 


l)2-il 1857:1 -?A 


00375 

199* 

D0375 

~ 150» 

003 7 7 

15)» 

ODSOl 

I52» 

OO-JO I 

153® 

00402 

'■ 1 59» 

C fc.) C 3 

ISbo 

CC1C4 

1 55* 

r n ^ 

157» 

CD HO 5 

1 5 8 • ■ 

CQHC6 

159* 

CQH C 7 

1 60» 

00407 

1 5 1 • 

C04 1 0 

162* 

COM 1 1 

1 53« 

COM I 3 

1 5‘t® 

CCH 1 3 

1 65® . 

COM 1 4 

156® 

COM 1 5 

167® 

COM 1 6 

1 5B® 

COM20 

169® 

00422 

“ 170® 

00422 

17 1® 

00423 

172* 

0 r'. H 2 4 

173® 

COM26 

“ 179* 

004 26 

1 75® 

00427 

176* 

OOM 30 

177® 

00432 ■" 

— 178® 

C0432 

179* 

00433 

1 fo* 

C0434 

18 1® 

00436 

“16 2® 

CC4 36 

1 B3* 

00437 

189® 

00 4 40 

1 85® 

C 0 4 4 0 

166® 

0044 I 

107® 

004 4 2 

188® 

C0443 

1 P9® 

C0444 

■“ 1 90* 

00445 

19 1® 

C c 4 4 6 

1 92® 

00 4 47 _ 

193® 

0 0 4 4 7 

199® 

00450 

1 95® 

00452 

195® 

00452 

197® 

00454 **“ 

“ 198® 

CC4S6 

199® 

CC457 

2cn® 

''04^0 

20 I • 

~ ^3461 

“ 2 02® 

0 J 4 c- t 

203® 

00463 

209 • 

004 64 

205® 

*> a' 


galley temperature CONTRoL_FaN,_Hj^X_ set 

R(65)n0. ■ . 

IF (HX60 .GT* 0*> R ( 65 ) 5*-30oO* 
return 

SET number of crewmen In hygiene area 

I D^M = VALUEUa,TlMEHiCt ) 

R ( 83 ) =DUM 

K ( NKS+ n s I F I X ( DUM-I- • I ) 

- '^^^hYGIEnE area sensible HeIT-AOOITION-YEQUIPTT-L-IGHTS— APPCIAN crsr 

I R(66) = 10C0.*VV{6i53)*VV(3,53l*VV< 121 .53) *VV<35 .53) 

^^^SET AtR bleed FLOW I N T 0 HjD_W E.R 

I R ( 1 ) =?• 

IF INSHV.R.GT.C) R(1)»M2.6 
return 

SET AIR FLOW TO DRYJOHN 

I R ( 1 )=0. 

KCH0UT=0 . - 

IF iNjON.EO.n R(l)®85.2 

IF (NJON.EQ.3) Rlllal*!?.! — 

~ Return 

AIR flow SPLITTER TO CLOtHES DRYER 
) Rt I >=0. 

IF ( NPHASE.EO . 7 ) R ( 1 ) «I 2. — 

^^^HYGIEnE area TEMPERATURE CONTROL EAN, H/X SET 
3 R( 6 S)rQ# 

IF IHX70 »GT. 0.) R*65)o-20oU» 

”^^SET AIR SPLITTER FLOW To WIPE WETTING UNIT 
) RI2CI=0. 

IF UVaIPE .GT. |.) R(20)“l*t<jf I 

’*• " p r T U 

SET water splitter flow tO wipe wetting unit 

3 R(20»=WWIPE 

RETLR^,^^ appliance SCHEDULES FROM'TASLES 
3 NPHASE=1FIX( VV(6,95)-*-,2 ) 

LPHAS£»IFIX(VM‘I9.->95) + .2 ) 

DUM= VALUE ( 12 r, 1 !.'«EH ,0 , ) — 

■“ NJON= IF I X I DUM + .2 I 

DUM= value ( 3 .T IMEH.O. ) 

NOUH=NSHWR 

NSH/.R=IFIX(0UH»1.2) - ^,r.Trr,~rr.y, rent 

~ WASH water TANif HEATER CONTROL 

IF (R(70) .LT. 158.) R(95)«a300. 

IF (R(70) .GT. 155.) R(9S)ao* , , ,, 

control water FLOW TO WIpE WETT I_NG_UNj T 

“Data wipe /-!•/ 

DUM = y. I PE 

WIPE=VALUEI79,TIHEH,0.) 

Y.'WIPEeO. 

“IF <DuM»WlPE .LT. 0.) WWlPE»20. 

control water flow TO cloThes washer 

^F*" (*°NPHASE-I > • < NPhASE-H 1 1.NE. O.I 20 TO 8510 

IF INPHAsE »EQ»1 .and. VV ( 3c • I • OT. 5.5) GO TO 8510 




‘;/!-9i-Q,r po‘>:iAoji i 1 


o o 



I 

ro 

tn 






> 

, 



Q 


* , 


tid 



• 


OCM 70 

297» 



, 00471 

208» 



i 00471 

209» 

C 


i 00473 

2 1 0« 

8510 


1 COS74 

2 1 1 * 



00476 

2l2* 



0C5G0 

2 1 3» 



CObO I 

2 1 4* 



! 

2 1 

. c 


CCb03 

2 1 6 » 

3515 


: C0SC4 

2 1 7» 



1 CCSD6 

2 I 8 • 



! 0 n c, 1 a 

2 19* 



005 1 I 

220* 



0C5 1 2 

22 1 * 



005 13 

222* 



005 1 4 

221* 



COblS 

Z?H* 

8520 


C0bl6 

225* 



1 . COb?0 

22 b* 



i COS72 

... 2 27* 



00523 

228 • 



00574 

229* 

6530 


00525 

2 30* 

6550 


00525 

?3 I • . 

C 


; " CD574 

232» 



: 00526 

233* 

c 


i COS 2 7 

234* 



1 00531 

235* 



00532 

2 36* 



00534 

237* 



00534 

238* 

• 


0CS54 

239* 

6575 


CC55 4 

2 4 0* 

2 


00S54 

24 1* 

3 


C 0 5 5 4 

242* 

h 


; C0555 

243* 



00535 

244* 

C 


00556 

245* 

6600 


00557 

246* 


r 

00557 

247* 

C 

- 

: C0560 

' 248* 

8700 


; 0D56I 

249* 



CC561 

250* 

C 


! 00562 

25 1 * 

9300 

j 

■ 00564 

252* 


► 

00566 

253* 



005 70 

254 • 

9340 

r 

C05 7 1 

255* 



i 00572 

256* 



• 00573 

257* 

9350 


; 00575 

258* 

9360 


1 005 76 

259* 



00577 

260* 


• 

005 77 

26 1 • 

C 

i 

00600 

262* 

9500 

! 

00601 

263* 



j 00603 

26**^ 



WCLO=< W ( 6 t I 02 ) -VV ( 6 , 96 ) ) /DT 1 mE • 3600 . • 1 • 00 I 

If (KCLO ,GT, 300.) WCL0®30p« 

control water flow to OlsH WASHER 
WDIS=0. 

IF I (LPHASE-l )«aPHASE-*)) ,NE. 0) GO. TO 8515 
IF (Lf'HASE .EQ. I .AND, V V ( 4 I . 6 9 ) . G T . 3.) GO TO 
•V0I5=( V V I 49 , I 02 ) -V V M 9 ,96 ) j / DT I HE • 3600 » • I . 00 I 
If t i’t 0 I S » G T ♦ 3 0 0 • ) D I S “ 3 0 n • 

control water flow to SHoW'ER ; 

s H 1 ‘. R = D . 

IF (NSHV.R ,UE. C) go to 855o 
If (NDUH»NSHWR ,GT. OI.GO to B520' , 

NSHRT = IFIX(.66»8.3‘)/3./ieo.*36C0»/0TlHE) + l 


85l5 


a530 

b550 


WSHRTo.66»0.34/3,/(DTIME»FLoAT(nSHRT))»36OC, 

TshAR= 1 lKE+4.3«60» 

MSHFLOs I 

GO TO 2530 .... 

NSHr UO = f:SHFLO* I 

If inshfuo.le.nshrt) go to 

IF (TIME ,LT. TSHWR) go TO 

TSH.\R = TShWR + 'I»3»60» 

NSHFLO= 1 
'.•;SH.'.R = HSKRT 

R( I >=T,SHV(R + WCL0 + W0IS*W'WIPE 

control PR1NT-0U7 

k:chout = o ■ 

CHECK for max time 
IF (KSYPAS .EQ. 0) CALL RESrT 

CALL CLOCK(OUH) . 

IF (DUH+9. .GT. 27.) TImEMX3TIKE"200. 

WRITE (6,b375) TIME, OHM, NPHaSE.lPHASE.NJON, NSHWR .NVCD.NSHFLO, 
NSHRT , WCLO .'.VO I S »WSHV,’R ,WSHRt ,TShW’R 


,F9, I 


N J0N=> * , 1*1 , 
NSHRTk* , 14/ 


COMP- 


MI N»«,F6. 2 » * 


NPHASE-*.14i 

NSHWR3*»I4, •' NVCD».,l<4, 

V.CLO»» ,612.5, » WDlS»* ,612,5, 

• V.SHRTb* ,612.5 , • TSHVVR., ,GI2»5//) 


FORMAT (// • TjME 

• LPHAc£= I , 1 14 , • 

, NSHFLOa* , I‘l , * 

* WSHWR»* ,G12.5, 

return ^ 

SHOWER WATER FLOW CONTROi 
R { I ) =WSHWR 

return 

SET water flow to clothes washe r f rom system 
R<I1=WCL0 
return 

control vco processing 

IF (KSYPAS. LT. I ) NVC0»9 

If (NvCO ,GT,0) go to 9350 
IF (R(69) ,GE 
R ( I > «0* 

NVCDe-9 
RETURN 
IF (R(69) 

R ( 1 ) =2.45 

NVCC=9 __ 

RETURN 

FOOD HEATING TRAyS SCHEOyLE 
OUM»VALU£(95,TIMEH,0. ) 

IF (DuM*R(I04J_ ,6T._,0.)_RETuRN 
■ R ( I 0 4 ) a 0 U M 


8.0) GO TO 0360 


.LE. 0.8) GO TO 9340 


gZr9[-0’[ 


o o o n o d o o o rj rj o n o o o o 
O f 3 a CJ C3 o O O O O f 5 C3 Cl < O ( > o 



26S» 

26ft» 

267* 
26 «» 
249* 
■ 270* 
27 1 • 
272* 
273» 
2 7 H • 
27S» 
276» 
277* 
' 276* 
279* 
28C* 
2e I • 


,2000 0,65, =0.57, 

DRYjOHf4 USAGE PHASE 
2 2 100 R ( 66 ) kFLO at ( N JON ) 

C ^'■^dryjoh n_ y a c u u h _ p u t u e t.. s p L lII ^ ?. 

12200 ,,7) ,GE. 0) R(<.5>1.0 

return 

End 


GP0LY908 


0 03«77‘M6 

1 03207210 

0 03207320 


(Ofletto 

■(OELETrC 






2 5_SEP_75 22 \ ic| 



c. 


o 


— CCOl 

OCiJ^OQ 

1 ^^OPL"" 

OOOl 

000317 

! 

OOOl 

OOl 2 ‘'3 

7200L 

0001 

00 I •♦H5 

2 7 ^ L 

CCDl 

0P03q2 

2*0G 

croi 

C0157I 

27C?L 

CCOl 

0C02 I 5 

330L 

000 1 

c 0 1 H M 

s 3'^r' 

cool 

C0»767 

SCPCL 

OOOl 

001775 

='1C''U 

COoi 

0C>2(3<»6 

<>02rL 

OOOl 

C02; 23 

603s 

0001 

002i50 

A80CL 

COOI 

C02 J55 

70COL 

OOOl 

002377 

9700L 

cool 

002S26 

975''L 

00 1 2~R~ 

0C0023’ 

*B 

0015"R~ 

OCCOl 1 

BTIpE 






crus R COPOCl Bl3 
priS R ccrcc3 riS 
nnoO R CCC^JP B6 
'"PI2 R rCCOHf CFi 

cni ccc.i‘<7 cpca. 
C'> I 1 COPOOP C RO ■" 
C003 CCCCOP cs 
0000 R CCC0‘<3 01 
pnOO R CC0057 o i << 

OPCO R C0^0*3 01? 

CrcD R rPCPSS 03 
p'lS p rcrro-t c? . 

npoc S r CCC3 r C-TOT 
0027 R OCOOPP HF 
rtpi2 rcocsr i»l 

6po*4 1 roccoo rcpnuT 

pno*! PPOOPI <?PnT 
C-POR POtCOi FAIT 

orco I ccrooo l 
p<“07 pccpi*i f'ixri 
p p 0 3 1 n ; c " 1 7 \ 

P.r.c 3 ■ pc OP 7 2 NC 
p 0 0 7 r p 0 p 2 1 E r n T 
PP03 '•00030 NicEx 
PPC3 POOPJ-* KP 
PO I 2 " pPPPSO ‘-PPRT 

ppiO PPPP-OI NRSCS 


PPCC R PC0037 Pl2 
pppp R r>PPC«2 Pl7 
OC50 R P0w007 F5 
coil R OOCOOl CP 
CCll C0CIR6 CPC02 
Cull ■ CCOlsl CPTC 
CCpO R 0P0015 OFLTEH 
COCO R CC002< DUM2 
PPPP R COCOSii Cl 3 
COr.C R 0P0C'.2 p( 8 
COCO R CCC0i2 022 
CP'C R rPCpSl 07 
CPP7 procnl 6RAV 
pppp R Pi~C03H G.11 . * 

0014 R OCOOl* Mx7p 

PPP 6 I p.poono K 

P0C7 00000*1 (fPORpP 

PPP7 C0COO6 icTRANS 

0008 PC0C12 r';tT*< 
r'3ts I DCOOOO LSH5U? 
C0P7 CP30?‘< PINSSI 
PCP3 ■■ coop?! HP I 
CCr7 000070 MCOPPS 

CCP3 CC0027 KK 

C003 CPP033 »u.EL 

’0012 props ■< f.PFS 

com OOCOIM NPEF 
PC 1 2 G'-OOA** mpf«;t 
com 1 on coo 3 ^ p 

com ccooo2 hvco " 

r022 R COOOPn PSAT 
C012 R 000072 puOA 
CCOO R 000023 P?S 

coo? U 000030 P7EA0V 

com R D0002S STR31 
com R 000070 STR73 

PCP7 OOCr .32 TIMEPX 

0011 one 3 7 0 vise ■ 

coil CC03l7 VI5C0 

com occoo<> vois 
ocii onc*i;,5 ivTM 

' COl l~R' POOo^ 1 .••TMOIC 

com R 000020 'AyUPE 
con cciooo xKuio 


0000 R OOPOl** B1 I 
CC15 R C0PC02 B16 
0000 R C0CC06 E** 

CCOO K C00C13 B? 

001 1 R coems cpconv 

CD13 OOPP-Cl CPS 
0000 R 00rci7 0EU02 
0000 R OCCC'Cl DOM 
0015 R COCOOB 012 
3G0C R OC-OPtl 01 7 
COCO R oncp^'i 02 1 


0015 R OCGOOO BIO _ 
0000 R roccul B15 ' 

coco R ccccps B3 
CPOO R 0CC012 BS 
0 '>ii cccm‘i CPCONL 
CPl3 OCOO'^O CPP 
0000 R 000C16 DEUH20 
CC07 R COCOOO DTIME 
COOO R CC3055 OH 


0000 R 000003 B1 
CCOO R 000080 BIH 
CCC-0 R CCC00 8 B2 
CCOO R pcnol I B7 
CC12 R nCCC87 CP3 
CO 1 I c: 0 I 50 CPOXY 
CCOO R C0r>P20 DELC02 
COOO R CCOOOO DIH 

CCOO R OOOOSH 01 0 

0015 R CCCOO 6 015 
CCOO R 0 C 0 C 8 H 02 
CCOO R 0 C 0 P 86 04 
C C C 0 R n P ' 5 3 C 7 
“COO R rjrr:“ 3 l 025 
CC 26 R ccrcco HO 
CC !2 CCPCSl IDl 
CC 07 CCCP 02 kFUSYS 
CCOH "■ CC0C02 kptinv' 
0008 0 C?r .07 KAJTl 

ocm I O 0 '''“ 0 l LPHA 5 E 
CC 07 C 0 CC 15 hAxlP 
C 0 I 2 ■ 0 C C 0 = 2 f. A 

CCG 3 C 0 C 023 f.CAB 
:cc 3 I rco ~25 next 
C 0 C 3 I ocorj 3 l NKS 
C 007 0 C 0023 NPASPO 

CC 03 1 000037 NPFT 

CC 03 CCP 0“6 n 3 

0018 crnoi2 ushflo 
CCC 3 eCClOO H5U3R 
0007 CGCnCS Pf.Mm 
CPCC R 000065 CLlQ 
CCI3 rOPnc2 RHOP 
COCO R C00025 S30 
com R CC?n27 STr 2| 
C015 R nC00l8 STr 6 
CO i 5 R PPC022 STR90 
C007 CC0038 THIN 

C012 R CCDO/5 vmCB 
con CO I CO I V15L10 
c c c 0 R r r r o 3 6 a l c o n o 

C007 CC0035 .VTMAX 

C013 0CC10C7 V.THS 

C012 R CCOlOO XKA 
0013 OCOOll XKS 


060 D 1 6 
CC7 020 
OH 7 05 
CCCC R CCCC21 EQCRIT 
CCOO R C 0 C G 3 2 G 2 9 
CCOO R CCCC35 HMlX 
0PP5 CCCCCO U’.AXR 
0C25 1 CCCCOO KK , 

CD 15 I COC026 K5T16 
0C08 CDCCIO KvUT2 
CC07 0CCCP7 LPSUM 
C;07 CC7C16 M/.XSLP 
0C''3 0CC02C NAI 
coio OCCCCC NCASE 
OC03 0C0026 NCXV 
OC03 CCC032 PKT 
0P03 I CCCC35 NPASS 
CC18 I CCCCOO NPHASE 
0PO3 J CCC08/ fJSF 
0" I 8 COCCI I NSHRT 
C“’08 cccr. I 3 NU^'F 

p'>07 0 CCP 26 pl; in 

CC05 R CCCCCl R 
GC13 CrC0-'3 RhOS 
0000 R 0CC026 R3 I ~ 
0015 R 0C0023 STR2s 
C 015 R CC0015 STR7 
0007 R G0C031 TIME 
0018 CCCC 13 TSHV’/R • 
0013 0CCC08 VlSCP 
0C21 R occcro vv 
CP18 CCCCIC A5HRT 
CPI 2 R 0CCC77 V.THS ” 
col I 000632 WTMTC 
C0l2 R COClpl XKB 
0011 000633 XKO 


oc i i err i 52 samgas 

CCCO R C0i*'C3 3 G30 
00 m R G0CC15 MX 6 C 
COCO C0C281 IMJPS 
CGC7 CDCCP3 KOUTPT 
CC07'J COCOuB KSYPAS' 
0 CC 8 G see 1 1 K>- I 73 
CO I 5 1 CCCC I 2 LSHR 

0CC<7 OOCC 1 2 MAXSS I 
CO I 2 O0C053 NP 

CGC3 1 00C028 NCFL 
OC m , I C 0 CP 08 M JON 
0007 000022 NLAST 

0003 I CCCC36 NPF 
0003 C0CC85 NO 
0012 0CPC63 NSFS 
com 1 OCCCIO NSHSUB 

D0P3 CCP 1 0 1 NV 
CO 16 U QOCCCO POV.Ep 
coil 0 CC 158 RHO 
00 1 1 OOC 153 RHOO 
0007 ■■ C0P027 START" 

OOm R 00CC28 STR29 
0015 R 000017 STR72 
OuCO R 000027 TlMEH 
GCC 6 GOGCCO V 
GC13 DCCCCS Vises 
oom cciccoB vkcuo 
ocm copoo 2 ivssliVR 

0011 R 00C633 ’ATMCOM 
GO I 1 0 QC 868 WTMQ 

0011 C00777 XKGAS 

0003 000103_Y_ 


I vst*? 

n n 3 3 n c 0 I C ? V T ~ 

R re 00^6 CAi 3 
roi? R cenf3 7 3 Rv^ea 
cnoo R cconju . 
0015 R rceai? STP?." 

0^\S R rCCCl 6 STR::! 

R rCCC ‘71 5 T ^77 

r*HQ 7 ^Ce 0 33 ThAx 

6 -‘ I 2 R CC007H V 1 SCA ' 

oni I C0CW63 VrS-^AS 

cc I CCCO 17 W 1 

nr;|2 R CCC07A V.THa 

0013 CCC1V6 

cnll 0CC63^ X< 

0013 CCCCIO X<P 


GPOLY^'l 
GPOLY 2 
G P Q L Y 3 
GPOLY ^ 


^ / COMP OS (l 5 )»N,NAl*NBl,NC»NCAB»NCFLiNEXT,NEXV,fjKj 
fJKS»NKTt^ 4 LFL^NPt^^PA 55 tNPF iNPFT( 6 ) |NQ»NS»NSF*NSFT(A) 

' /Eclisn / ’^KCHOUtUppNT.KPTINVIR) ,KWIT,K-a1TT,KWIT2V 
,KAIT 8 ,NUFE 
/RARRAY/ 1MAXR,R|1) 

/P, I sc V- 0 T 1 ME.gr AV,;^n.SYSiKOUTPTTKPDROPVKSYPASTKTR 


COlOl 
C0103 
C01C3 
CO 103 
00 108 
00108 
C01C5 
C0'C6 
CC1C7 


GPOLY 5 
GPOLY 6 
GPOLY 7 


00107 
00107' 
CO n 0 
001 1 I 

00 n I .. 
ODl 1 1 
00112 
00112 

001 13.. 
COl 1 *1 
CO 1 1 
CO 1 IS 
CCl 15 .. 

00115 

00116 
00117 
00120.. 
0012 1 
00 172 
CP I 23 
0P12M . 
COl 26 
00 130 
00132 
00 134 . 
CC 1 36 
00 1 <^0 
00 1 h2 

00 1 *< H 
CO I 46 
OOlSO 
00152 
00154 _ 
00156 
00 160 
CO 1 6 1 
OC 1 63 . 

00 165 
CO 1 67 
CO 1 7 1 
<-0173. 

■ 001 75 

001 77 
00201 
C02C3 . 
00205 
00207 

002 1 I 
00213. 

■ 002 1 5 
002 1 7 
0022 1 
0027 1 

' 00222 
C0224 

00225 

00226 

■ C0227 


1 UPSUMlB) ,HAXC1 iMAXLP,hAXSi P»MAXS5I ,NCO^PS,NEftOj *NLASTfNPASPD, 

2 HlNSSI,PGMlN|PL»Ir;tSTART,<;TEAD7,TlME,TlHEPX.TpAx,TMlW,<'THAX 

common /P^’0PTY/^*ip0»CPl99i»CPC0NttCPCOUVfCPC02»CP0IU,CP0XY,CPT 

1 GaMGAS*RH00.Rh0(991 ,VI5C0,V1SC199)»VISGAS.WTM0iWTM(79) i<^THCON, 

2 ftTMOl L ,*TMTC , XKC » XK (99 ) f Xk GAS ,XKL 10 , V I SL I 0 uPre kiorcTfi. 

common /S0URCE/__ A( 19) .B( l,) .CPA jCPB, I AI ,1B1 ,NA,N3.NPFS 


common /P"!0PTY/ 
1 GaMGAS ,RHOO .RH 
'2 ftTMOlL ,*TMTC ,X 

Common /source/ 


tgrinuN /rvn/ ruticn 

LOGICAL POV.ER 
Dimension v(ii,tc(i) 

ECUIVALENCE (V.K) 

logical steady 

OTM=DT 1 ME/360C. 

IF (N.GT.H3) GO TO lO 
If (N .Eo» 3) GO TO 300 

IF (N ,Eo* 6) GO TO 6C0 

If (N *EQ, 16) GO TO 1600 

IF (N ,E0, 20) GO TO 2C00 

IF (N .EQ, 21 I GO TO 2 1 C~ 


W ^ Mt W ^ % 9 

.EC. 22) 
.EQ. 23) 
.eg. 25) 
.EQ. 27) 


* r \ t 

RETURN 


GO TO 2C00 
GO TO 2IC-0 
GO TO 22C0 
GO TO 23C.O 
GO TO 2500 
GO TO 27C0 
GO TO 3C00 
GO TO 32CO 
GO TO 43C0 
GO TO 4fioO 


GO TO 49C0 
GO TO 5CP0 
GO TO 51C0 

r n Tn cnn. n 


» u u • V Ij f 

I E Q . 6 2) 
. E Q # 6 6) 


GO TO SPOO 
GO TO 6000 
GO TO 6200 


♦ t. y . T / . 

IF \ n •EQ.121) ly 1^1 wu - 

IF (N .EQ, 125) GO TO 12500 

IF (N .EQ. 126) GO TO 12600 
R P T U R Kl 

COMPUTE shower STALL PLOiLUi^— 

■"300 If (R( I ) •GT..02DI ) GO TO 33o 
E '90)=0. 


\3\J I U W w 

60 TO 6600 
GO TO 6PC0 
GO TO 7CC0 
GO TO 77c0 
GO T3 7900 
GO TO 9100 
GO TO 9700 
GO TO 12100 


F> *901=0. 
R(91 )=0. 
R(92)=0» 
"RETURN 


f 


l)2-M857tl-2A Raised 10-16-75 


o 





00230 

63* 

330 

: 0023 I 

69# 


I 00232 

70^ 


; C0233 

7 1 • 


00233 

72^ 

C 

■■ 0C23R ■ 

73® 

600 

C 0 2 3 6 

7H9 


C0237 

7S* 


C07H0 

7A« 


C02MI ' 

77# 


002S2 

78* 


00293 

790 

630 

00295 

eo« 


00296 ■ 

8 1 0 


00297 

82» 


CC250 

830 


C025 I 

8*4 ♦ 


0025 1 

”‘65o‘ 

"C 

C02S2 

860 

1600 

00253 

67« 


00255 

8B« 


C0257 

" 89 # 


C0262 

90^ 

1620 

00269 

9 1 0 


C 0 ? 6 9 

9 2 • 

C 

; 00265 

93 » 

‘ 2000 

CC267 

9 H o 


C02 70 

9&0 


00271 

960 


00272 

970 


00273 

980 


002 79 

970 


CD2 79 

1 COo 

C 

1 CC275 

* iGlo 


! CC276 

\0?^ 


00277 

1030 


00300 

1040 


00301 

lOSo " 


00302 

106 0 


00303 

1 07® 


0C309 

1 pao 


! CO305 

IG9« 


1 00306 

1 10« 


1 00307 

1 M • 


j 00310 

1 120 


00311 

*" 1 13» 


003 I 9 

1140 


CC3 1 9 

UBo 

C 

00330 

1 I 6 0 


! 0033 1 

■ U 7 o 


, 00333 

1180 


! C033S 

1 1 7^ 


1 00336 

1 200 


C0337 

12 10 


00390 

\ 220 


0039 1 

1230 


0039 2 

1 2*40 


; 0039 9 

1 2So 



R ( 90 ) n A ( M ) *A ( I ? J / (A<5)*A(6l> • A < 9 ) /*» «) , *760 , / I ** , 7 

R(91 )»A(q?»Anci/ ( A(5>*A U» ) ■•A<9)/32. 

Call nH(R( i j »uum,r(92) ,n) 

RETURN 

COtiPUTE clothes WASHER/ObYER PLOTT 1 NG_ P AR A WETERS 
If (NPHAsE ,E0. 7» GC TO 63n 
R ( 1 I 2 ) =0. 

R ( 1 1 3 J «=o. 

R(ll‘n«0. • __ ■ . ' 

R( 1 I5)“0, ' 

return 
If (K(nks*3) 


.EQ. 61 return 


Call khibi n . dum.r 1 1 m »6 ) 

CALL RHIR(20) lOUM.Rdm *6) 

R(115)“R(96’. 

return - 

shower circulation TaN' P»ESSURE“RIS£ 

R T*n = I M .8 

IF (NSH'AR.GT.O) RETURN 

IF <R(11 .LT. 1.) return 

DO 1620 L=l . I** 

R » L 1 -0 . 
return 

SHOWER WATER separator 

IF (nsh'.vr,lt,o) return 

R( I ) =R(26) 

R ( 26 I sO t 

R(2)=R<21) 

H ( 3 ) »R ( 22 ) 

R(4^)aR(23) w 

call pROp(R(l),NPF,NPFT.CPA.WTMAtRHOA,VISCA,XKA) 
PRINT OUT intermediate SsjOWER PARAMETERS 

81 = (VvI 3,53) ♦.2‘*e»VV(7lin.<VV(lS,2l )-VV(7|T2rr) 

82 = SVV(I8,25» -vv<7l ,6n*.*<s‘i 
B3=(VV(l8,31)-VV(7l,12>)».‘ic'* 

B9*(vv(7l,10)-vvn0,29n • .HR** 

85«VV(3,2) 

B6*( VV(3,6)-VV( l9,6 ) )»,r5R „ 

B7=(VV(!9.I0)-VV(3iIC))».‘*5h 

Ba=(VVO,l2)-VV(19,l2))«.H5<» : 

D 9 = VV i 1 V , 6 ) 

B5 = R < 25 ) 

B9=R(29) 

Bil=HOn ^ 

If ( NSHSuB t EO . 0 ) WRITE (6,97591 
write (6,9760 BI tB2 .B3 .B** ,p5 .86 tS7 ,B8 ,89 ,BI I 
CHECK for convergence OF SHOWER LOOP 

NSHSUB^f-SHSUO+l ^ 

If ( NsH'UB. EQ . 1 ) oO TO 2050 
IF (NSHSUB. EQ. 6) KCH0UT»0 
DELTEM=ARS(1.-STR21/R(2II> 

0ELH20* ABS ( I »-STR2S/fi ( 25 > ) 

DEL02«ABS ( 1 •-STH29/R ( 29 ) ) 

DELC02=AbS{ I .- 5TR3l/R(31 I ) 

EQCRIT'*AKAXI(DEl02,0ELC02.0fLH20iDELTcM) 

If ( EQCR I T .GT . .00 I . and . NSH«;UB.LT, 30» ?0_rq_2050_ 

NEXT = 2 I ■ 


-/3V‘M2- 


0 

1 


1 

cn 


posUoji ! I V21UG3H-2G 






0C3H5 

003H5 

C03H5 

003Hi> 

; 0C3«6 

CC3M 7 
C03S0 
CD35 I 

003^2 

i C0353 

00354 
' CC355 

. 00356 

CC357 
C0360 
C036 1 

00362 

CC363 

C0364 

00365 

00367 

003 70 
003 70 
0037 1 
00372 
! 00373 

i 00374 

: 00374 

I CD37S 

00376 

003 77 

c n 4 0 0 

00401 

, 00402' 

I C0H03 

I 00404 

1 00405 

■ 00406 
004Q6 
00 4 0 7 

00410 

! C04 1 0 

1 004 11 

I 00412 

i 004 1 4.. 

004 I 6 
004 1 7 
0042 1 

00423 

! 00424 

00425 

00426 
; 0 ■'426 

•; 0 4 2 7 

r " ‘ 3 1 

1)0432 

00433 

••0434 


I 26* 
127* 
128 * 
129* 

I 30* .. 
13 1 * 
132* 
133* 

1 34 » _ 

135* 

136* 

137* 

13 4* . 

1 39* 

140* 

1 4 I * 
142 * . 
1 43* 

1 44 * 

1 45 * 

146*. 

147* 

1 4B* 

1 49 » 

150* . 

1 5 1 * 

152* 

153* 

154* 

155* 

156* 

157* 

1 59*_ 
■ 1 5 9 * 
160* 

I 6 1 * 
162* 
163* 
164* 

1 65* 
166*. 
167* 
168* 
169* 
.170* 

1 7 I * 
172* 
173* 
174 * 
175* 

176 * 

177* 

178*. 

179* 

180* 

1 6 1 * 

. 162*. 
183* 


return 


RE-ITERATE SHOWER LOOP 


NEXT«15 

A''JUST SHOWER LOOP REiURN FLOW 

DuHsI./ 1 1 .“W ( 1 7 ,65 ) ) / VV(,8,65) 

0UM2-0UM- 1 , . . „ , 


R25= DUM2*VVC71, 6) ♦ OUM • j VV 1 2** , 6 ) - VV ( 1 9 , 61-VV(17»251 

R29^ DUM2*VV(7|,10» ♦ 0UM*_1 VV < 3 , | o 1 -VV< 1 9 , 1 0 ) 1 

R30* DUM2* VV ( 7 I , 1 1) • ... 

R31= DUM2*VV(7i,I2) ♦ DUM*(VV(3»121-VV(19,1^») 

R(75)=R(?5)+.3*(R25-R(25) 1 

«{29)=R(29)*.3*i;R27-R129) ) : 

R(3C)=R30 

RC311=R(31)*.3*(R31-R(31)1 
R{24)=R(29) + R(30) + R(3l) 

R'(2ai=R(24|/lRl29)/32.*R<30i/WTMDrL'*Ri3l 4T) 

DUM2=R(74l*ttTHC0N/R(28)*0UH/(R(23>-DUM) 

IF (R(25),C.T«0UI''2) R(25)«DUm2 

CALL*PROP?Ri2of^NSr,NSFT»CPR,V.'TH3,RHC8, vises, XKB) 

STORE water separator outlet CONDITIONS F0« LATER 
STR2 1 »R ( 2 1 1 

STR25aR(?5) 

STK29«R(29| 

stR31»r( 3 j » jt,al:ze 5howEr stall conditions for next LO 

call SVtSTRSl ,3,5! 1 

CALL SVtSTR72,3,72» 

Call SV(STR73,3,73) 

CALL SV(STR77,3,77) 

Call sv ( strss , 3 ,83 ) 

Call sv(str2,3,2) 

Call sv(str6,3,6) 
call SV(STR7,3,7) 

CALL 5K(KST16,3,16) 

■return 

SOWER OUTLET AlR FILTER 
R{4)=R(31-2.*»03613 

return .. 

SKIP SHOWER after Final uSE 
next = 2 3 

IF < T IHE.GT* 10.75*3600. 1 REtURH 

IF (KSYPAS»LT.3) LSHSUB»0 

next* 15 

IF (NSHAR.lT.O) RETURN 
If tLSHSU3.NE.01 GO TO 2250 

T I MEH = T 1 ME/36C0. 

L5HR = 3 
8T INE^DT I ME 

DTIMEc:0T1ME/FL0aT(LSHR) .... .. 

ESTIMATE SHOy/ER AlR LOOP . I N I T I,A| C0NDJJI>N_ 

IF (KK(3,16),GE,0) go to 22«;0 

GT0T*42.6*t 1 ./{ 1 .-VV( 17,651 )/ V V ( 1 8 , 65 ) - I . ) 

0UM*GT0T/VV (70 , 103 1 

G25aVV(70,10e ) *DUH*2. 

■ G29=VV(70,112)*DUH 


DUM*fVV(3,121-VV(19,l2») 


convergence TEST 


OP ITERai 



SZ-9T-0T i>9sub>i V2-i:zf5onka 




■I • 


■n 

I 

I CO 

ro 


i 


i i 
%■ 


OCH35 
0C436 ■ 
OOH37 
CQMMO 
OOMM t 
OOHHZ 
00SH3 
COH 4 H 
G n H *i S 
? ? •) s o 
C 0 4 *4 7 
COH 47 
0T450 
C 34 5 I 

00452 

00453 

00454 
CD455 ■ 
00 456 
C0457 
CC460 
0046 1 
00462 
00462 
00 46 3 
00465 ■ 

00466 

00467 
004 70 
C04 72 
004 73 
00474 
004 75 
00476 ■ 

004 76 
0 04 7 7 
00500 
CObOO ' 
0050 1 
00502 

00502 

00503 

00504 
00506 
0C506 
C0507 
CC5 1 0 

005 1 2 
005 1 4 
C0514 
00515 
CCS I 6 
C0520 

■ 00522 

00522 

00523 

00524 
"00526" 


I B 4 » 
IP 5 « 
t a6* 
107* 

J 0 e • . 

189* 

J 90* 

1 9 1 * 
1920 

1 930 ■ 
194* 

195* 

i960 

1970 

1900 

1990 

2C0O 
20 10 
20 7* 
203 • 
2C4 • 
205« 
2060 
2070 
2000 
■ 2 C 9 ♦ 

2 10* 

2 110 
2 1 2 » 

2 130 
2140 

215* 

2 160 
2170 
2 180 
2 I ?o 
2200 

22 1 o 
2220 
2230 
2240 
2?5o" 
2260 
2270 
220 * 
2290 

230* 

23 1* 
232* 

2 33* 

2340 

2350 
2360 
23 70 
2300 
2390 
240* 

"24 I o' 


2250 


63C = VV I 70 » I I 3 ) ODUM 
G;i=VV<70.114lo'JUM 
call SV(75, , 2” ' ) 

Caul sv(14.7, . ;) 

CALL 5V { 1 4 .7 , ^ ' 3 1 

CALL SV(629'-f>.: 31 

Call 5V (G25 .20 ,25) 
CALL SVtG29,20,29) 
CALL SV!G30,20,30)„ 
Call sv(G31'. 20.31) 

CONT INUE 


■ 2 b‘; 24 ) 


STORE SHOWER stall INiTIAl PARAMETERS 

STR51=Wi3,51 ) 

5TR72oW(3,72) 


STR73oVV(3,73) 
ST«77=VV ( 3 .77 ) 
S T R 0 8 = W t 3 . 3 0 ) 
5TR2=VV { 3 , 2 ; 
STR6 = V V ( 3 » 6 ) 
STR7=VV ( 3 .7 ) 
KST I 6xKK l 3 . I 6 ) 
NSHSUBoO 
return 


2300 


SHOWER WATER PUMP PRESSUrE RISE 

IF ( NSH.VP ,LT ,0 )_RETURN 

R ( 4 1 =R { 3 1 * 20 . 

KCHOUT “C 
LSHSUFj-L5HSUB*1 


2350 


IF (LSH5UB.lt oLSHR I GO_TO_2350_ 
LSHSUB-0 
DT 1ME*:.T IME 
RETURN 
NEXTS 22 
RETURN 


"C 

2700 


CLOTHES DRYER FAN PRESSUrE RISE 
2500 R ( 4 1 xR { 4 1 *4 . o ,036 I 3 

’’^^CLOTHES DRYER AIR FILTER PRESSURE"DROP 
R » 4 1 OR < 4 ) -I ,50,0361 3 
R P T U R fJ 

CLOTHES WASHER WATER FILTER PRESSURE ORO^ 
3000"R(4)=R(4)-,3 . ^ _ 

IF ( (NPHA5E->3)o(NPHASE- 6) .EQ, 0) r(I)»C. 

Return 

clothes washer water PUHp PRESSURE I SE 

3200 |^pi^2sEfEQ.2 ,0R. NPHASE’.EQ.S ) R(I)»4C00. 
IF (NPHASEo (NPHASE-7),EQ.0) R(1)«=0. 

RETURN 

dishwasher Water pump flo” 

4300 ([pHJ5£^gQ,2 ,0R, LPhASe'.EQ.S) R(I)o4000. 

IF (LPHAsE , phaSE-7) 0).RU>«=Q». 

return 

dishwasher Water filter pressure drop 

4000 R(4)=R(3)-0.19 , 

If (LPHAsE.EQ.3 ,0R. LPHASE,EQ,6»„R(1)»0» 

return ' 




9Z-9C|0I l>'^!AO^ 1 jV2-T/9QII-i2(j 


00526 

2 M2* 

C 

compute d 

00527 

2H3o 

4900 

IF ILPHASE . 

0053 1 

2mm O 


R 1 1 I 2 ) =0. 

CC532 

2 sb» 


S( 1 13)=0. 

CC533 

2M60 


R( 1 14)=CI. .. , 

C 0 5 3 4 

2M7# 


R( I )5)=0. 

00535 

2 Ma# 


RETURN 

0C536 

2M9o 

4930 

IF (KINKS +3) 

U0540 

2S0* 


R U 1 2 ) xR (25 » 

C 0 5 4 1 

2S \ • 


Call rh(b( i 

0C542 

2S2<» 


Call rh(r(2c 

00543 

2S3^ 


R{ 1!5)xR{96) 

DOSPS 

r « £L ii ii 

2 SM 0 

“5 r r Ik 


Return 

f> r ^ 1 1 f* f 


WAShER/dRYEr PUOTTING parameters 

7) GO TO *»930 “ ■ ■ ' 


COSH5 

00&S6 

005M6 
OC!5t)7 
O05SO 
OOS5 ! 

CC502 
00553 
0055H 
00556 
00560 
00562 
00564 
C0365 
CG566 
C0567 
005 70 
005 7 I 

00572 

00573 

00574 
0C575 
005 76 
C0576 

005 7 7 
00600 
0060 1 
00602 
00605 

006 10 
006 1 I 
006 1 2 
006 13 
006 1 4 
006 1 4 ■ 
006 1 5 
006 1 6 
00620 
00622 ■ 
00624 
00626 
00630 
00632 


256* 

257* 

. 258». 
259* 
260 » 
26 I • 
262 * 
263» 
264 • 
265* 
26 6 * 
267* 
26B» 
269* 

2 ;n« 

2 7 I • 
2 ? 2 » 
273* 
274* 
275* 
276* 
277* 

2 7(1* 

2790 
2SDO 
2S I o 
2620 
203* 
2040 
285* 
2860 
2870 
2 PH* 
289* 
2900 
29 1 o 
2920 
2930 
294* 
2950 ■ 

2960 
2970 
2980 
299* ' 


R(4)«R(3>-2.S*. 03613 
return 

DISH DRYER Fan PRESSURE rISE 
R ( 4 I o R I 3 ) ♦ 6 • 7 ♦ . G 3 6 I 3 
return 

R(4)xiq,7 

return 

set galley air outlet FLOWRATE' 

DuHs13.*6H. 

IF (LPHAsEtEQ.7) DUM»DUM+38. 


AFPLIAnCCS, H/j 


locker hfat gain for plotting 


.If (R(2) .GT, 73.) HX60*9, 

If (R(?) ,LT, 68.) HX60x“9,'. 

IF (HX60..6T. 3.) 0UM»DuN+4?60» 

DUM2X0UM/ { R ( I 07 1 +R I I 08 ) ) 

R(6)=R( 10i)»DUH2 

R no ) =R ( I 12 1 ODUH2 

R ( I 1 ) =R ( I I 3 ) *DUh2 
R(12)sR( 114)*DUM2 
Rn3)=R( I .3)*DUh2 

R(I4:=R( I 16)*0UH2 - 

Rl 1 )«DUM 

R(4)=!4.7 

R (5 ) =DUM-r ( 6 ) 

return 

confute freezer locker HfAT gain for plotting 
R( 132)=-R(53)*I3. . 

R(105)=R(l05)*I3.*DTlME/360n« 

R ( I ) “R ( I ) • I 3. ■ ‘ 

Do 6210 L=5,14 

IF ( (L-8)*(L-9) ,NE» 0) R ( | ) *R I L ) • I 3 . 

return 

R I 4 ) = 1 4 , 7 

return 

R(4)=J4.7 

return 

set Hygiene" area air OUTrET~rEO«/R'AT£~TD~APPn ANCE! 

D U M * 0 • 

IF (R(2) .GT. 73.) HX70*9. 

IF (R{2) ,LT. 68.) HX7o«-9. 

If <Hx70 .GT. 0.) DuM»4260. 

IF UVilPE .GT. 1.) DUM»0 UM+i 49,1 
IF INSHAR.GT.O) DUM=DUM+S2.6 
IF (NJON.EO.I) OUHoOUM+85.2 

If (NjON.EO.3) DUHuoUH*! 49.7 ' 



Rc| vised 10- 


0P63M 
006 36 
CC637 
0^6*10 
006H 2 _ 

006h2 

00643 

00645 

0064 6 
00647 ■■ 
C0647 
C0650 

0065 1 

00652 

00653 

00654 

00655 _ 
00666 
00657 
00657 
C0660 

0066 1 
0066 1 
0 06 6 2 
C0663 
00661 
00/ 65 
00667 
006 70 
006 7 1 “ 
006 72 

00673 

00674 

006 75 

00676 

00677 

00700 
CO/D 1 
00/0 2 
OC7G3 

00701 
C07C5 

00706 

00707 

007 I 0 
007 11 
007 I 2 
C07 1 3 
C07 1 1 
00 / 1 5 
007 1 6 
007 1 7 

00720 
■ 00721 

00723 

00721 
00721 

' 00750 


3P0» 
301 • 
302* 
303» 
304 • 
305* 
306* 
307* 

3 0 8 • „ 
30V» 

3 t C» 

3 1 I * 

3 I 7 • . 
3 I 3* 

3 I 4 • 

3 15* 

3 I 6* 

3 17* 

3 I 8 » 

3 1 9 * 

3 2C» 
3? I • 
3?2* 
323* 
324* 

■ 325* ■ 
3 26* 

3 27* 
3?e» 
329» 
330* 

33 I * 
332* 
333* 
334* 
335* 
336* 

3 3 7 * 
330* 
339* 
340* 

34 1* 
342* 

34 3* 
344* 
345* 
3460 
347* 
348* 
349* 
350* 

35 1* 
362* 
353* 
354* 
355* 

3560 
'■ 357*' 


IF (NPHA5E»EGI.7) DUm«0UH*12. 

GO TO 6020 
R(4)=I4.7 

IF tR(2).LT. til R<2)“VVf70.21 

■’’^^FLO.V/THERMAL. BALANCE - wJPE ttETTINfi UNIT 
IF (WiVlPE .LTt 1.1 return 
R(65)*R{21 ) 

*Dum = rT 5?«R(0)*R(2) ■♦.44«R( 6 T>R t 2 > *CPB*R t 20 1 *R T2 II ^75 6o 

*r| 2 1 ”OuA/ ^ f R t 5 ) oR < 8 1 +.4l*Rf61 *CpB*R(20>» 

R ( 2 1 I =3 I 2 ) .. 

R(20I=3<20)-.560 

R(6)=R(6)*.560 

HHIX='R(5l«R?6?*R(2)*R(6)OH6(R12))+R(7 1 *HLt R 

"Call hbalnc ( hh i x .R .nstr ,ncfl iKLCOnd) 

R E T U R 

■/.ASH WATER PUMP HEAD 

R ( 4 ) rv4C. . 

*^^^'okpute refrigerator LocK^f* heat Gain for plotting 

I R( 123)»-3.*R1531 

R( 10S1*(R( IC5 1*0TIHE/3600.1_53_» 

' R ( 1 ) *=R n 1 *3 . 

IF (NPASS.GT.CI 60 TO 9750 
BlC-C. 

013 = 0. 

B 1 6 = D o 
Bl 0=0. 

D 0 = 0 . 

Dl2=0. 

"015=0, 

020=0. 

I Bl=TIHE/3600. 

B2 = 3.*R(531 

" D3 = R < I I *CPA* ( R ( 2 )“A ( 2 1 1 
B4 = 13.*VV(62,53) 

B5=VV(62,l)*.24a«(VV(62|21-vV(6i,211 
_ 36 = VV(95,531 

D8=VV(7l, !5*.248*(VV(18,2lJ-VV<7l,2): 

B9 = VVt2?,n*IVVt23,2)-VV<22,2)> 

Bl0 = B10+« /V( 10,25)-VV(71 »6) )*DT 1 ME/3600.f 

" Bil*VV<6,031+VV(35,53l 

Bl2=VV(73,l)*.248*»VVt2Si2)-VV(73,2)> 

Bi3=Bl3*(VV(25.6)-VV(73,61)*nTlME/3600. 

R|4=VV(19,53)*VV«1! ,531 

■ B|5=Vvr63.1)*.240*(VV(5l»2),VVl63,2l) 

Bl6 = Bl6+(VV<51»6l-VV(63,6))«DTItlE/3600. 

3 I 7 = W < 12 1 I 53 ! 

B18=B18*(VV( 126,6)-VV(72»6l }*0T 1 ME/360n. 

write (6,97591 

^ Wr'itE^(6‘^9760) 01,B2,B3,B4,b5,B6,B7,B8,B9,B1O,BII,B12,B1 

• Bl5,BU,B17,Bl8 _ . 

3 Format (ix, 5Gt2.5'» 5X, 5Gi?»5) 


L... 


I 

LO 

Cx) 


ro 


L_. 


r 


II 


0075 I .. 

00752 

C0753 

C075H 

C0755 .. 

00756 

C07S7 

00760 

C076 1 . 

C0762 

00763 

0076M 

00765 

00766 

00767 
C07 70 
007 7 1 
007 72 
007 73 
0077*1 
00775 . 
007 76 
007 77 

C I 00 1 
0 1001 
010 3 1 
01C32 
01033 
0103*1 
0 1035 
010 3 6 
01037 
OlOHO . 
OlOSl 
c : OS 3 
0 1 055 
0 1 055 
0 1056 
01057 
01060 
0 1060 
01061 
0 1063 
01C6S 
Cl 065 
01066 
01067 
010 70 
01072 
0 1073 
0 1 07S 
0 1075 
010 76 

0 10 7 7 
01100 

01 tOl 
01102 
01102 
01103 
01 10*1 
01 IC5 



_358* . 
35*?« 
360* 

36 1* 
362* 
363* 
36S* 
365* 

. 366* _ 
367* 

3 6 B » 
369* 
...3 70O 

37 1* 
372* 
373* 
37S • . 
375* 
376* 
377 • 
378* _ 
379* 
380* 

38 1* 
3G2* 

‘383* ■ 
3RH • 
3P5* 
386* 
■"3 87 • 
388* 
389* 
„390 ■ .. 

39 1* 
392* 
393* 
39 ‘‘•* 

— 375 • 
396* 
397* 

_ 398* . 
3 99«' 
*»00« 
SCI* 

. * 102 * 
103* 
SOS* 
SOS* 
S06* 
S07* 
SC8* 
S09 * 

*n 0* . 

S 1 I • 
Sl2* 

S 1 J* 
_ S 1 S* 

S 15* 

S 1 6* 

S 1 7* 

s 1 e* 


Dl=3.*R(531/3.Sl2 
02 = 3. *9(65 1/3. Sl2 
03= ( BS*BS ) /3 .S 1 2 
0S=56/5.S12 

D5=«07 + 08 1 /3.S12 ,, 

06= (VV(l*t» 6)-VV171,6)5*.HSS 

07= 1 W ( 1*1 . 12 l-VV (7 I , l2 1) ,.‘15s 

022= ( V V I 7 1 . 1 0 ) -VV ( I S , 10 ) > * **15*1 

O(! = O0*VV ( 86 . 1 ) »OTH* ,S5S 

■'D9 = VV(a6,ll*(VV{86.2l-105*)/3»*ll2 

010=01 UB121/3.S12 

Di l = lvVl25i6)~VVl73,6l )*.S5s 

0 1 2 = 0 1 2 + VV t B7 . 1 l.*l/TH* .S5*l ^ 

■■013=(B1S4B15I/3,S12 

0lS=(VVt51 .61-VV(63,6))*.S5s 
0 1 5 = 0 1 5* V V ( 87 , 2? 1 *DTH* . S5S _ 


5 

0i9=(VV(79,6)-VV(78,2S))*.S5*1 

02C*D2C + VV(83.20)*0TH*.s5S . 

021=VV03.20)*IVV<83.21)-105*)/3»812 

write l6l9760) D 1 i02 .03 »D*1 . o5 »D6 I D7 »08 .09 .010 iDl I »01 2 I 01 3 ,01*1 » 

015,016i017,Di8,Di*? ,020 , D?!. 02? 

8 1 =VV (79,20) 


0 
ro 

1 


_C 

12100 


82 = VV ( 23 , 

83 = VV < 3S , 

BS=VV S5, 

B5=VV 'I , 

B6=VVI 3, 

B7=VV( 6, 

BR»VV{S9, .. 
ftfilTE (6,9759) 
write (6,9760) 

^^^compute dry JOHN plotting. 


1 ) 
I ) 
I ) 
1 ) 
7 ) 
I ) 
I > 


CO 

cn 


I 

ro 

:> 


01 »B2»B3|BHtR5|B6iB7»B8 


r 

^12500 


R(115I»(R(89)^R(90))/R(9l) 

C/\LL RH(R( 1 ) iDUM.RC 97)»N) 

D r T I J O M ^ 

ORYJOHN urinal water SCPaRAJO" 

If (8(1) .LT. .001 > return 
R ( 1 1 =R ( 26 ) 

R { 26 1 =0 . 

R ( 20 ) =R ( 2*1 ) ♦R 1 25 ) 

R(3)=R(22) 

QLIQ=(*'0.*17,5**3.Si2 
IF IR(1) .LT. .1) QL10»0. . 

0 A I R= ( 1 00 • ♦ 1 7 . 5 1 *3 . S 1 2 ♦ ( So. * 1 7 .5 ) *3 

R ( 2 I =R ( 2 1 ) *QL 1 Q/ (R(l)*CP(li) 




— 

“0“ 


,Ml2 


< 

in 

CD 


Cpe = (R(2S).R{27)*R(25).CPC0iv)/(R(2*l)*R(25)) 

R ( 2 1 ) =R < ? 1 ) *QA 1 R/ (R(2C)*CPr) 

R(S)=R(23)*12. , 

call’ PROM R{ I 1 ’nPP^RPPT ,CPA>)TKA.RH0A ,VISCA ,XKa) ^ 
CALL PROP <R (20) , NSF , NSFT . C Pr , WT mB , RHOB , V I 5CB , XK8 ) 

’^^^oryjchn outlet air F iLTEr PRESSURE~DR0P 
R(S)=R(3)-2.*. 03613 

return 

end 


<T> 

I 

•vj 

oi 


GPOLY 1 95 


END oF~C0HpILATloN:‘ 


"NO — 01 AGNOSTICS, 












02 - 118571:2 


APPENDIX G 

MODULAR SPACE STATION/APPLIANCES 
SIMULATION RESULTS 


NUMBER OF MEN IN GALLEY AREA 






GALLEY AIR TEMPERATURES *** DEG F 


D2-1I857I-2 


4 





Gist me I SPACE STATION APPLIANCES SIMULATION 



1 




08/^J/T5 OlilVAC 1108 SC -8020 




h ; m 



GALLEY AIR PARTIAL PRESSURES 


D2.118571-2 


5i«tc»sE I SPACE STATION APPLIANCES SIMULATION 




0 C02 CKM HG) 


12 . 14 . 

MISSION TIME - HOURS 

l OXYGEN (PSIA) 


9-3fll3« 0*/i3/T» OWIVAC 1108 SC-8030 




D2-I18571-2 


ttMc.sE I cpArr STATION APPLIANCES SIMULATION 


0 ARS SUPPLY 
3 DISHWASKER 

oi/n/r5 uMtv«c iiei 


CABIN FAN - H/X 


2 FREEZER 


SC-<0*0 


MISSION TIME - 


HOURS 


^ 2000 








HYGIENE AREA AIR TEMP **♦ DEG F 



B. 10. 12. 14. 16 

MISSION TIME - HOURS 

0 CABIN TEMP I CABIN DEW POINT 2 ARS RETURN 



HYGIENE AREA AIR PARTIAL PRESSURES 











D2-II8571-2 


i»»c.sE I SP^CE STATION APPLIANCES SIMULATION 


IF 







MISSION TIME 

- HOURS 

0 

SHOWER BLEED AIR 1 DRY JOHN 

2 CLOTHES DRYER 

3 

APPLIANCE-HX RETURN 


00-JT»»J* 

08/2J/7« JWIV8C U08 SC -8020 

886C ! 





TEMPERATURES *** DEG F 


D2-l!e571-2 



MISSION TIME - HOURS 

0 WASH WATER STORAGE I APPLIANCES RETURN-89 2 VCD INLET 


100 . 


50. 


618, cm I space STATION APPLIANCES SIMULATION 

175. 


150. 


125. 


09-J88I,* 08 /* 3 /r» U«tV«C 110# SC-,0*0 





WATER FLOVi/RATES *** LB/HR 








WASH WATER FLOWRATES »»» 


D2-1I857I-2 


' SPACE STATION APPLIANCES SIMULATION 


3000. 



2000. 


1000. 


• • • m 

. . . -f- .i 

. "i 


8«* ' ^10. 12. 14. IS. 

MISSION TIME - HOURS 

0 TOTAL AI^IANCES OUT I SHOWER CUT 2 CLOTHES WASHER OUT 

3 DISH WASHER OUT 

9»-40Mlt 08/t3/M UMIV8C llOt SC-«0t0 







EATING TRAYS HEAT FLOW »»* BTU/HR 


D2-II8571-2 


6ltt CASE I SPACE STATION APPLIANCES SIMULATION 


4000. 


3000. 


2000. 


1000. 


!. ;i 






0 HEATERS Q-IN 


MISSION TIME - HOURS 

l LOSS TO AMBIENT 


00-AAtEA* 0»/n/T» UWIVAC 110# SC-IOEO 



0CKER HEAT GAIN *** BTU/HR 


D2-((P57I-'? 


G169 CASE SPACE STATION APPLIANCES SIMULATION 


1600. 


1400. 


1200. 


1000. 



0 FREEZER 


MISSION TIME 

1 REFRIGERATOR 


00-^3tl2» 


00/23/25 umVAC 1108 SC-5020 





CHILLR HEAT ADDED BY OPENING DOOR *♦ BTU 


D2-I18571-2 


G189 CASE 1 SPACE STATION APPLIANCES SIMULATION 


10 . 12 . 

MISSION TIME 

FREEZER » REFRIGERATOR 



14 . 

HOURS 




0»/*J/T5 UKI»«C M9» SC-»020 


REFRIGERATOR TEMPERATURES 


02 - 118571-2 


18 ^ \ SPACE STATION APPLIANCES SIMULATION 




8 . 10 » 

MISSION TIME - 

0 FOOD SURFACE I COOLANT INLET 

o*/*3/Tf u«ii»«c noe sc-aozo 


14. 16. 

HOURS 

2 COOLANT outlet 



D2-ll?57l ? 


GtSI CASE 1 SPACE STATION APPLIANCES SIMULATION 




MISSION TIME - HGURb 

0 FOOD SURFACE 1 COOLING AIR INLET 2 COOLING AIR OUTLET 


9 »/n/« u«ii»»c iioi SC-90E0 













t)2-«857l-2 


t.i. Cl! I SPACE STATION APPLIANCES SIMULATION 



0 WATER IN 
3 AIR OUT 


I WATER OUT 
4 DRUM/CONTENTS 


2 AIR IN 




0I/2J/T5 U*MV»C 1108 SC-80J0 



CLOTHES DRYING PROCESS PARAMETERS 


D2-I1857I-2 





III 

I SPACE STATION APPLIANCES SIMULATION 



0 

3 


WATER IN CLOTHES-LB I 
RELATIVE HUMIDTY OUT 

00/23/^5 UNIV0C noa SC-*»020 


EVAP RATE (LB/HR) 


2 RELATIVE HUMIOITY IN 

»»GF 


G-24 


OO-‘l4t?0» 




WASHER/DRYER FLOWRATES *** LB/HR 


02 - 118571-2 




WASHER/DRYER TUB TEMPERATURES ** 


D2‘ll857l-2 


Gt69 CASt \ SPACE STATION APPLIANCES SIMULATION 


A X n r> r\ 


)-0' 0 0 0 {H> 



0 WATER IN 
3 AIR OUT 


MISSION TIME - HOURS 

1 WATER OUT 2 AIR IN 

4 ORUM/CONTENTS 




08/23/7? li»iIV8C n08 SC -*1020 







D2.1I8571'2 


. SPACE STATION APPLIANCES SIMULATION 





*8. 10. " 12. U. 16. 

MISSION TIME - HOURS 

0 WATER ON DISHES- LB I EVAP RATE (LB/HR) 2 RELATIVE HUMIDITY IN 
3 RELATIVE HUMIDTY OUT 



U«(I»»C M08 sc -8010 



SHOWER STALL FLOWRATES *»» LB/HR 


D2-1IS57I-2 


tmc.si I 3PACE STATION APPLIANCES SIMULATION 


I! liii 

s t 


jliliilii! 


uuu 




• ,L_ 

■.‘..ji’fi'l ; 

|/' . - -Ir^rSL] . 

i : 


0 AIR IN 



12 . 

MISSION TIME 

I WATER IN 


14. 16. 

HOURS 

2 OUTLET TOTAL 


0$/Z1^Tt U»»I»»C U08 SC-80J0 









SHOWER EVAP RATE AND RELATIVE HUMIDITY 


D2-118571-2A 


Revised 10-16-75 


G199CASE J SPACE STATION APPLIANCES SIMULATION 




I ii 


I *1 

!i i| - 5 i I 

s iil’i 

Si = 


Hill 


Hiiil® I 


J I 

'll i I iyi 


'mm 


■i\ lldi 



MISSION TIME - HOURS 

0 EVAPORATION (LB/HR) 1 OUTLET HUMIOITT 





D2-I18571-2 


GiO<> CASE I SPACE STATION APPLIANCES SIMULATION 



0 inlet I COLLECTOR OUT 2 URINAL OUT 

3 COLLECTOR CONTENTS 


00-52857# 08/23/75 ONIVflC 1108 5C-8O20 


G-34 




• « ft • 9 


ft • ft ft ft vftftft 


ft ft. e ft ft 4 


ft r ft O ft » o 






ftftftftftftftoeftftftftftftftftftftftftft9ftftftft*ft®ft**®®^***® 


SPACE STaTIOM appliances simulation 


r ft 4 ft ft ft ft ft ft»ftftftftftft«ftft9ftft#ftft 






C 


COMPOrtEriT..SOLUTlOH results aT. ENp of transient , time = , .6HB00.0 sec SYSTE-N pass = "00 


N 


COMORATUlaT IONS - THE RUH IVAS A HOlvLlNS SUCCESS . 
NONE OF THE COMPOtaCNTS HAVE FAILURE FLAGS * 


1 /C>^ll 



COMPONENT NO, » 

SUSR, type 

V R 

1- TOTAL PRl FLOW P 

2- TEMPtRATURE 

- 3-DUCT CUTLET P I 
ti-CCKP OUTLET P H 
^-f;ON-CO>:D FLOW A 
*-COND VAP FLOW R _ 
^ 7-COND LIO FLOW Y 
e-N-C 5P HEAT 

WT S 

1 U- UX YGEn FLOA I_. 

n-'^^lLULNT FLOW D 

12- C02 FLOW E 

13- TRACL FLOW 

14- 5PCL flow I D 

1 &-SPCL Flow 2 a 

16- SPCL FtOft 3 T 

17- 5 PCL flow M a 

IP-SPCL flow ^ 

1 V-3PCL Flow 6 

20 -TOTAL sec flow s 

2 1-TEHPER A7URE E 
22-duct outlet P C" 
Z3-COPF Outlet p 0 

2*4-N0U-C0r;0 FLOW N 

25- COl^O VAP FLOW D 

26- CONO LI 0 FLOW ' A ' 

27- N^C 5? HEAT R 

2B-N-C HOL WT ^ 

29- CXYGEN FLO* 

30- DILULL-t flow ’ 5 

3 1 -COZ FLCSv I 

32- TRACE CTP FLOW D 

33 - spCl Flow * ^ 

3H-3PCL flow 2 
3«;-SPCL Flow 3 D 

36- 5PCL flow A 

37 - spcl Flow 5 J 

■ 3 S - 5 PCL Flow 6 a 


39-OH, C, DP 
**0-LE> n, k 
j -FF area 
qZ-OHi OP 
‘t3-LEf K 

4 H-FF area 
*4 5-UH , C , DP 
*4&-lEi N, K 
M 7 ^FF area 
Hfi-OH, C, OP 
* 49 - LE , . K " 

Sq-FF area 


PRl P 
DUCT R 
E" 

PR I 5 
COMp S 

SEC C 
OUCt 0 

SEC P 
COMp F’ 


3 

— SHOWER - 

tCOOOOO 
Ics tOCO _ 
' i ^ # GDOO 

1 M ,8000 
,000300 
•OOGOOD 

■ *000300 “ 
# 2H 1 2C0 
2a*9 I 20 
,000000 
fODOGCO 
•OOOCOD 

•ocoooo 
V noccco 

■ • 6 c 5 c?o 
f ccoooo 
»6 g656o 

I OCCOCD 
" tCOOCOD ^ 

•occooo 

tCCCCCO 

‘ t DCC'0^0 " 

• ODCOCO 

• ncCOOO 
,ncCC*^0 

* ,000000 ^ 
♦aoccoo 
foaocoo 
, OODCOO 

- *000000 
.000020 
*CDOCCO 

•ococoo 

'' .QDCuQO 

• C 0 0 0 0 0 
*000000 
.ococoo 

*’ * OCOOOO ■ 

*000000 

, 0 

- ,5ccdco 

. DOCCCO 

• 0 DOOOO 
•OGDOCO 

' *000000 
« occooc 
tOGCuOO 
f CCOOOO 

— , 000000 ' 

• 000000 


6 

-“WASDRr 

•DOOOOO 

89*89S2 

.300000 

♦ GOOD 00 

»r6o56o 

* 000000 
•ooocoo 
.roDOoo 

* 0 c 0 c 0 o 
.ococoa ■ 
.ODGOOO 
♦COOQOO 
•ccoooo 
,?ceooo 

• 000000 

tCcnDOO 

*000000 

•ocoooo 


.OCODGO 
89.8952 
} q .7000 
• OCOGOO 

^ X r>^n nQ 

.ncooDO ' 
.OODQOO 
*000000 
•cccoco 

^ o n r* f** f» r> ■ 

.cooaoo 

B — f'- 2 C 0 

*000060 
,000000 
« coo 
*660660 

,0C0D2Q 

•2000DO 

•OCGOOO 

*000000 

,000000 


^0 OC 00 

656c56 

nnn Qnn 
n n 

CCCICCO 

000000 

CGOOOO 

2C0020 


IR 

*OCCOQO 
, COCOCO 
-iR.ecoo ^ 
I .ecco 
*OOCOCD 
.aoDOoo 
" * DCOOOO 
.2^»T20D 
20.9120 
« 00000*^ 
-,006660'“ 

f 

oCOOCOO 
,Q'"COCO 
^ *CCCCOO '■ 

« COOC ' C-G 

tDCaOOQ 

• CCCOCO 
fOOOCCO 

16.3R90 
31.5799 
-13*9721 - 
13*9901 
1 

•29q 1 3? 
-oOOGCnn " 
*220762 
P' 'J0 25 
-•otiC27 

- 12.2562 
.1 lnS97 

• orf^coo 

- ^COCOGO ' 
•CCOOCO 
•COCOCO 
,aocDoo 

- *000000 ■ 

•□cocoa' 

* pm n«^n 

.o6cc56 * 

^ pnnonn 

•CCCCOO 
,02DCC0 
.00CC20 
0 2 n 0 n n n 

,odc666 

* 0 0^0 
— . o 6 cc 6 fj - 

,Cporon 


Sl-COMP SOURCE TEMP 7o.Ol<?H 


86.1713 


OPLOOO ■" 


/I 


If 

-CASH I 


.COGOOD'*' 


•ooocoo 

* ooocoo 
-.606006 — 

1 R .SC02 
.C'^PCOO 
,003000 
-* 009000 — 

• cocncG 
.606006 
. 202200 
■. CG-onca — 

* 22 C 220 

, 26^226 
.666656 
202020 ^ 

0 0 0 r. 0 0 0 

.006606 

« CC'*“^CO 

-'.Dc56o6 ^ 

•200200 

* np *^ r;P n 

~ .60600? - 
.nopnon 

0 Qnpn 

•c66oco 
-.000002“ 
,002^00 
0 0 20 
*066662 

- 0 opp - 0 n - 

.666cg6 

^ 0 0 

^ 0OO 000 

- *666600 ^ 
0000000 

. 02^020 
» Bccocn 

-“.COjCOO •• 

.ccorco 

0000009 

'“• *006066 • 
0 0 2 2 2 0 0 
♦c6nc00 
,002000 

- .002200 
,002200 
.002CC0 
« 020022 

— .666000 
*020000 


•000000* 


.000220 
«OC02''2 
■*l^4o8ncO 
l«.n202 
.020202 
, P 2 C 0 C 0 

-0000999“ 

*7H I ?6c 
?P . 9 1 70 
♦ n09099 
“-,OCC''OC 

# C **' 0 22 0 
. 2622'**0 
*660206 

“^nnnn'in 
. '•>220^2 
.066626 

* n00n09 

- ,666622 

• C 02222 

.66020? 

^ \ n . CC’^O 

, *1 , r n 0 □ 

, 990990 

0 n noon n 

— , nonnon "*■ 

.7'U7nn 

20*9122 

. ncr^oc 

— . 2 2 2 •■*' V “? ” 

, nn0rt0n 
^ on nn nn 

““*, 666662" 

^ on 999 0 
0 n n 0 0 r 9 

. rcr ?66 

- ,902220 

*020222 
^ n n 909 n 

— *66266? ■* 

,900909 
0 onqnro 
, 666 ^ 66 . 

— .2202*20 ' 
^ nnnnpn 

,c66f^66, 

• 2 2 2 ^ ? 2 
— .noncno 

.090002 


-.rtODGOO' 


1 8 

SPLIT- 

*000000 
.000200 
“IP.E^OO - 
. 8920 
,00rnnO 
.000202 
‘-.022222 
.241 209 
28.9120 
• CC22?? 

- ,CG?PPP “ 

. C9C902 

* 062626 

Voocpno 
- • COC^OO ■ " 
, CC222C 
'.o6nrna 

, 0 nn n 09 

— .060660 “ 

. cao'^OG 
.CCC920 
1 ** .8^29 
1 H , f\0 0 0 

* ODO200 
.092^02 

— , OOOPOO 
•2^1222 
26,7129 

* C c 0 

, 0 6 ? ^ ? 6 
,■0099^9 
0 n n n n r n 

-■ .6626^6 ■■ 

* 9 n n r> p 

0 9 

.dec??? 

- .C222C? 

,000909 

* 909^00 

- *666620 
.000202 
0OCO22O 
.CO2CO0 

V C 2 ^ C 2 ' 

^ 0 n p n np 
*666^00 
, 0 n n n n 9 

.066666 

.000*020 


-.000000 


♦OOCnOO 
X 05 * '•'10 
• I 

I ^ . ?P''C 
. 0002^0 
, rcr:'^20 
■ . 2 2 2'“ 22 
. 2 ^ i 76 ^ 

78.9172 
.GC'-'P'^G 
‘ , C C C 2 
^ n r n — 9 

, 00 ' T?6 

, ccc^no 

- 

. OO ?*" 20 

. c66rn ? 

, « 00r'^0 
' • 6 C 2 ^ 2 2 


. r*9pn99 

, 0 ? r ^ ^ n 
^ 0 0 n rn 0 
* C 2 6 ^ ? 6 

,n66'''6o 
.002222 
rt n n <■’ n 9 


-^r*0n'*2C 

-Cg 6 ^p 2 

^ n n n « n 0 

.6 :p '*^2 

.02Cr'"2 

.CC2*"22 

^nnnrn0 ^ 

, d 6C''20 ' ‘*5"“ 
.002020 <. 
.2020^0 t/, 

,000002 JL 
2000^2 b?” 
.002'-22 
*022'“ 2? 

, p 2 2 C 2 2 ^ 

” .066020 ‘i'" 

.OCOCQO 5; 

[ 

- ,oC0nO0-”Crr‘ 





•ODOOOO •OCCPOO 

tccrooo *" 

*oocp?c «cccnro 

tCDOn^O ♦C0DP”D 

.ODCnno .oonnno 

♦OOD^^O •DOCPDO 

♦ooonoD •ccPrOD 

• odo^^oo •pc'O'^nc* 

• PCO?6o •CCPP'70 

^CODPHO •COPPnO 

• QCv^QO 

«oo5c66 •ccQppc 


VR( 3, 6nl» *90000 VRl 

-“VRC 3*-'73y« 2*9600 VRl 

VR( 3, 76)C 46,675 VR( 

VR( 3, 83 )« -OCnon VR( 

VRl 3* GP)a .55628 VR ( 

■“VRl 3 r 93) *OnnOO VR( 

VRt 6, 6fl)s BC.'^OO VRl 

VR( 6, 73)a •GOr'^0 * VRf 

VR{ 6, 7ft>tr .SroOO-OJ VRf 

-VRf 6,-^3)= 120.00 VRf 

VRf 6t 8R»« J.nnoo vR ( 

VRf 6* 93)‘« •OOf'OO VRf 

VR( 6,.9r)c 30*000 VRf 

"VRf 6 , 103 ) « 55*000 VR f 

VRf 6,|0fija -4. 000? VPf 

VRf 6,il3)« .000^0 VRf 

VRf IR* 65)= .PO'^00 VRf 

"VRf — 1*^* 7n)s .Rp«P6 VRf 

VRf |R. 75)= .DP^OO VRf 

VRf 16, A/.)a .00^00 VRf 

VRf 16 , 7n = .CrODO VR f 

- VRf — 16, '7 a)» .0000 0 VRf 

VRf 16 1 fln ° .00000 VR ( 

VRf 16, 8 aJ« .OrOOO VRf 

VRf 16, 9l)s» 76.R00 VRf 

“vRf~I6 ,-96)« .OOncO VR f 
VRf 


16 

17 

SG 

19 

sed I 

FAM 

'SPLIT 

SPLIT' “ 

ALTCOM 

o 

2300Q000 

IDDOOQOO 

lOoooDoa 

R90Q0000 

1 

J— » 

-03_ 

ISO 2 

1602 

1707“ 

1 802 


0 

0 

0 

C 


0 

0 

0 

D 

cn 


3 , 69 )n 

39 ,oon 


3 % 7 R)« 

«* 500 P ' 


3 * 79 )« 

*80000 


3 * GRltJ 

10 . COO 

fV V; 

J 

3 * e. 9 )» 

. OrOOO 

3 t 9 ^ J B “ 

^ n r 0 n r 

>— * 

6 * 69 )» 

. ooocn 


6 , 7 *^>e 

•OPOOn 

CO 

6 , 79 )= 

29 C . 00 

03 

■vj, 

— 6 , es ) = ' 

• PCOOP 

f — t 

6 * 69 J= 

. 9 P 00 P 

r 

6 f 9 1 »■ 

. 197 * 10-01 

O' 

6 , ? 9 ) = 

32 .ono 


6 , 1 ) a * 

. 75000-01 


6 * 109 J= 

• 70000 


6 , IlM Jtr 

, p- jr n 


19 , 66 ) « 

973.06 


^ 19 . 7 I ) = ■ 

.CnOOO 


19 , 76 ) a 

. nppnn 


16 , 67 )= 

.OCOOO 


16 , 7 7 J t. 

.o^oon 


— 16 * 77 ) « 

.ocooo 


16 , 62 1 = 

.00000 

■:V 

16 , 87 1 = 

« 00000 


16 , 92 ) = 

* 00 6 ?p 


“^ 17 , 651 = 

* 1 2570 

0 ) 



< 


•OOOOOQ 

*000000 

• ococoo 

, ftnpnnn 

♦ 600 C 06 

,ccooc6 

, 00000 0 

•^00000 

* or 6?oo 

^ poriT' nn 

‘*^*cb565o 

.ooconn 

^Qr.onnQ 

• nOCnCf’ 

.060000 

•606606 

.Conoco 

♦ CO on ?o 

“■•COCCOO 

.coocco 

.OOQCOQ 

,nncppp 

* ococoo 

^ nnp n na 

.COCCOO 

•rococo 


0 


“2 


2 


— D 


UJliJ 

VU/I 


lOGOO 
0 

2^00000 


6-SEC SPFL TYP 1-3 
“ 7-SEC 5?FL TYP H-6 " 

8»*NEXT COMP/CABlN 

" 9-COMP NSTR J -9 

10- COMP NS7R JO-18 

1 1- NCF l/nlfl/npass _ 

1 2-PR I I 5C/DENSI TY 
I 3-PR 1 OP/DP/OP/OP 

lH-5tC VISC/OENSITY"' 

15-SEC op/op/op/op 


SUBROUTINE DEPENDENT K ARRAY DATA 


2700QD0 

'23010000^ 

0 


3 , 16 1 = 

16, 17)*= 


KR ( 6 , 16 1- 

"KR ( I6>*“T8)=*" 


23000D0 

100000000“ 

0 


1 

0 


o 

n 
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COMP 
— — SUB 
VR 

1- TOTAt 

2- TEMPE 
■ 3-DUCT 

h-cohp 

5"?iON-C 
fi-COND 
•' 7-CO>;0 

8- N-C 

9- N-C ^ 
1 D-OXYGS 

'1 2-DILUE 

12- CC2 r 

1 3 - TPACE 
I «-SPCL 

15- 5PCL 

16- 5PCL 
I 7-SPCL 
I 8-5PCL 

‘ l9-SPCt 


onent no, » 
R, Type » 

PR I FLOW p 
RATURE R 

Outlet p ’ i ' 

OUTLET p H 
0\'0 FLOW A 
V A P F L 0 »7 R 
LIO FLOW ' Y 
P A 

-i > 7 S 

^ t ' r •• I 

NT flow *^0“ 

Lo;-> ^ 

CTH FLOW 
Flow i 0 
F L 0 W 2 A 
Flo/* 3 T 
FLOW** A 

FLO’A 5 

Flow 6 


20-total sec flow s 
2 I -temper ature e 

■ 22-OUCT OUTLET P C' 
23-CCHP OUTLET P 0 
2M-N0,N-CCr:0 FLOW N 
-COND VAP FLOW D 
-CC-ND LlO FLC*V" A 
-f.-C SP HEAT R 
-N-C mol WT Y 

-oxygen flow 
-ciluent flow “ S 

31- CC2 FLOW I 

32- TKACE CTM flow 0 

33- SPCt flow I E 

3 H-SPCL Flow 2 
3B-SFCL flow 3 D 

36 - SPCL Plow « a 

37- spcl Flow s t 

38- SPCL FLOYi 6 A 


39-DH* Ct DP 

PFII 

P 

9G-lE» n, k 

DUCT,. 

R 

HI-FF area 


E 

M2-0H, C, DP 

PR I 

5 

M3-LEt N, K 
M*t-FF area 

COMp 

S 

.-r C, DP 

SEC 

c 

*■ Ho-tE, N, X 

DUCT 

0 

;; H7-FF AREA 


E 

4e-CHi c, DP 

SEC 

F 

-R9-,UE, N, K ■ 
f. Sa-FF AREA 

COMp 

F 


OOCDOO 

0000*^0 

coooco 

OODOrO 

nn nn r»Q 

666doo 

0 C 0 0 '** 0 
QCOOOO 
000070 
Q ^ r 0 

0G0070 
OCO 0 7 0 

n£n noQ 

0DC07O 

^coc^o 

p r n r> n 

QC7CQ0 

occooo 

OOCOOQ' 

OOOOQO 

000070 

ncocoo 

007070 

0C7770 

QC707D 

007C70 

ocrcoo 

0CCC70 

OCQGOO 

, n r n 3 

o55c7o 

000070 
, r*n 

lOCOCOO 
' 000000 
• 070 G 00 

ccoooo 

'GCOOOO 

•OO0C70 
» ^007*^0 
.OCCG70 

1 ococoo 
» ococoo 

rOuOCCO 

►000070 

.ooocoo 

►OCOCOQ 

fOCCOOO 

►ooooco 

iDCOOOO 


21 

22 

H ALTCOM 

AL.TCOI 

•GOCCOO 

•000000 

aOOOOOO 

1 OB •770 

.couooo 

RS ,0000 

- *7 22670*^0 1 

«icor? 

•C70000 

oOCOOOO 

•occoco 

•0DC003 

^pprnp0 ~ 

8 0700 70 

,occooo 

e 070070 

•777077 

•000370 

tCCCOOO 

• 77CC30 

,070000 

♦oonoon 

•OOOQOO 

• OCOCO 7 

♦700070 

• OOPQ^n 

♦OOCOOO 

♦ 0 ' n 0 6 5 

#*^77073 

•C70077 

, n p n r, p n 

, Qppnpp 

•cfooco 

♦occoco 

i *777070 

,077777 

■ ,000000 

^ ,066000 

i oOCOCCCl 

•000070 

i •077070 

• 007707 

1 •coooco 

♦ OCOCOO 

! oOOOOOO 

« 7000CO 


700070 

r n 3 r, *: 3 
OCODOO ' 
7GOOOO 

ccaooo 

7C0000 

ococoo 

rococo 

o 33330 

p n 30 Q 

rcDCco 

700000 

OOOGOO 

oocooo 

OOCODO 


, 0 3 o 3 n p 

.ooccrn 

•cccooo^ 

9 070000 
♦OOOCPO 
♦070000 

♦ C C* 0 
tOGooca 

^ n p p rs n p 
, p p p r n p 

♦coobco 

♦ GC7000 
♦ooccoo 
•DDCOOO 

■ fOOCCOO 


COOODO 

♦000070 

707000 

♦ 0077 77 

uCOOOO 

♦ □OCOCO 

070700 

•OOOCCO 

p 0PP pp 

« 0p 33 p n 

cccooo 

♦066777 

CCOOOD 

' D GO coon 

OOCOOO 

♦ooocno 

oocooo 

8 07D70D ‘ 

^00070 

♦0CD070 

OCOGCO 

,000070 *■ 

CCOOGO 

♦OGOCOQ 


si-COHP SOURCE TEMP 


•OCOOCD 


• OOCOOO 


" •OCDOOO 




52-EFF SUr*MEO COnO tOOOOCO 

‘S3-COHP QTOTOL LOSS <OOQG[?a 

SH-AMBIEnt gas TCHP tOCCO?0 

55- AMS1EN7 UA »CCOOOO 

56- AM3 COnV Q LOSS *OCOCCO 

57- AMB wall temp ^fODCOOn 

56-AJ^9 SCR1PT(F)*A *003000 

59- apb Pad q loss *000000 

60- STRUCTi;p£ TEMP •J3C000 

6| -STR‘jClc»E KA/X fOOCOCO 

62- STRUCTUPE Q LOSS .OCOOCO 

63- PiSULAT lQ^4 TEmP *000000 

6H- I.NSuLAT !0N KA/X *003000 


•occooo 

'■*000000' 

*000000 

*000030 

•occooo 
" *000030 ' 
tCOCDOO 
*000000 

* ccoooo 

* OCO GGQ 
•ODCOOO 

•ooccoo 

•OOGOOO 


f OOCOQO 
"* 000000 ' 
e Q nnnnn 

fOOCOCO 
*000000 
' *000000 
f 000000 
•000000 
, Q n rt n n Q 

•fCro^Do 
*000009 
• C 0 0 0 0 
•OOOOOO 


*000000 

•ncooco" 

,c 6 cd 66 

*000000 

•oooooo* 

.000000 

•OODOOO 

•ococco 

•ccocco 

, n r n o n n 
•COCOOO 
.000000 


SUbPOOTINE OEPENdEWT V ARRAY DATA 



VR ( 

20 t 

65) = 

.00000 

— ' 

VR i 

22 t 

66 ) f 

105.00 


VR 1 

23 » 

69 ) ^ 

*09003 


VR i 

23 1 

7R > » 

* 33399 


VR ( 

23 

79 J = 

. 0390»-| 


VR ( 

23 I 

) = 



VR [ 

25i 

67 )- 

^ n non 


VR { 

253 

7 2) = 

*09909 

■7 

VR C 

25 3 

77 J = 

^ n rtQ 

-r — -> 

VR ( 

25, 

82 ) = 

— *09909 


V R C 

25 , 

S7 } = 

« 9999*^ 


VR C 

25, 

9Z 

, 93036 


VR ( 

26, 

65 ) = 

_2**0 iOO 


VR( 

20» 66)= 

VR{ 

23,-65)= 

VR < 

23 , 70 ) = 

VP. ( 

23. 75)= 

VR ( 

73, 89J= 

V R C '■ 

23, 85)= 

VR( 

75 , 63)= 

VR t 

25, 731= 

VR ( 

25 r 78 1 0 

— VRC ■ 

25* 831= 

VR ( 

25, 88)= 

VR( 

25, 931= 

VR { 

26, 66)= 


•00000 
. 00000 - 
*09000 
.09000 
.99000 
-'17.300^ 
.00900 
.09009 
.00909 
.99 900 
.GODOO 
*00000 
.00000 


VR ( 
VR t 
VR { 
VR f 
VR < 
VR{ 
VR < 
VR { 
VR ( 
"VR ( 
VR ( 
VR{ 
VR t 


2S* 
2S* 
2S 1 
2S. 
29 f 
25, 
27 * 


69) = 
7H ) 
79) = 
8*1 ) *" 
89 ) = 
9*0 = 
65) = 


•OOOno 

*99900 

•09990 

'""♦09990 

•0909Q 

♦coono 

•OCODO 


*000000 
-.OCODOO' 
^ nnnnnn 

♦COOC99 
•009C00 
"•COOOOO' 
♦Goonco 
• 00*^000 
•009090 
■ *900003' 
• 0 C 9 9 0 C 
♦OOGCOO 
.oooccn 


21 , 

65)« 

*00000 

VR C 

21 • 

66) = 

23 r 

^66)-^ 

^ '*00000 

VR t' 

23.' 

67 T = 

23, 

71 ) = 

. nooOD 

VR( 

:^3* 

7 7 1" 

73, 

76 ) = 

*90000 

VR< 

23, 

77) = 

23 » 

81 ) = 

annnn^ 

VR( 

23, 

87 ) = 

2R* 

-65)='" 

— 6Si52n — 

“VRi 

-“ 25 

'6^ ) = 



rrooDoc 

"•ooroan- 

* nP9<^99 
.090909 
.000909 

“.09D9C9~ 
.000090 
•009909 
•090C90 
".CCOOCO ’ 

• OOC90? 
*009999 
.CDC90C 


•000000 

-*ocanoo 

•D09990 

*000090 

•ooonoo 
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• OCCGOO _ 
" • 3C3C30 

*300030 
•CCDCOD 
#303030 
‘ *303000 
*330030 

•ooooco 

• rC3GC0_ 
“ ,000000 

• oocooo 

» ^03030 

#5cC030 ' 

• 3C3C33 
, — prnnn 

• OCOOOD 

~ ♦ocoooo ' 

•3C0030 
#030000 
« ’^30030 

•cccooo 

• 333030 

.333o5o 

" ,333000 
*330030 
•DCOOCO 
#CGDOOO 
" #000300 

•OCCOOO 
•3C3000 
, 303000 ' 
•COGGOD 

• 3 G 3003 

• '^333*^0 
•COGOnO 
• 303G30 
•3C00C0 

•ncoooo 

*303030 

#030000 


fOOOCOO 
• 000000_ 
•cooooo 

♦OODOOO 

• 00C3CO 
♦Oncn^n _ 
•OCCOCO' 
*033300 

• coccco 

,000000 _ 

“•OOGC30 
rCCOCOO 
.033300 
*030000 
*33^336 ' 
#030000 
#033030 

• 033 003 
"‘♦OOGCCO " 

•DOOOOO 
*000030 _ 
' #000003 

• 033330 
f OOOCO'^ 

tOOCCCO 
^* OOOCO'^ 

*d6c66o 

• 003000 _ 
' *003030 

*003303 
•C33C39 
•OODOOO 
“ #033000 ■ 

•CCG030 
#000000 
#000330 
*000003 ‘ 

•000030 

•OOCOOO 

#030300 

• C330C3 

• Qnnn#*n 

^ ,cccg6o 

• 0‘^oo^n 

• C3G03D. 
,000030 

— • 03G303 

f 00CC3D 


Sl-COMP SOURCE temp 


*003000 


9<T,66o3 '• 


COQOOO ' 








II. 

52-EPr SUMMED CONO 
*53"COMP OTOTOL LOSS' 
5M-AM3 IENT gas TEMP 

55- AMBIENt UA 

56- AMB COMV 0 LOSS 

57 - APB wall temp 

SS'^AMB 5CriPT(F)»A 

59- rAMB RAO Q LOSS 

60- STPUCTURE TEHP 

61 - structure i^A/X " 

62- structure 0 LOSS 

63- 1 N5UL AT I ON TEHP 
6*+-! NSULAT I ON KA/X 


•000000 
♦OOODQD ■ 
, QQn n n n 

•OOCCOQ 
tOCOOCD 
' •OGOC^O 
♦OCOCCO 
fOCOOQQ 
• 0000*^0 
•coDooa 
♦ococoo 

•OCOCOQ 

tCGOCDO 


! oBOODO 
"29.5063* 
•OOOCOO 

•eoocoo 

• ccootja 
' *000000 

• OOGOOO 

♦coooco 

75*0000 
■ 1 .50000 
29 r5063 

?q .6700 
•COQOQO 


•000000 
">000000“" 
•GCOOOO 
f 000 DO 0 
•OOOOOC 
"•OOCOOO 
♦ 00000*^ 
•GDDOCO 
• GOO 000 
tCCODOO ■■ 
•CCOOQO 
• DODOOO 
f DOQOOQ 


.000000 
",000000“ 
.000000 
* 000000 
♦ooccoo 

^•ODOOOO' 

•ncQnnO 

♦QGCQOO 

•OOOOoO 

“.CDOOOO 

•oooono 

• OCOOQD 

,000000 


.000000 

“. 000000 ’' 

•000000 

•OOOODO 

.000000 

'•000000“ 

•ooocoo 

•OOnnOQ 

'•OC^OOO 

.000000 

♦ooooog 

*000000 


.000000 
“ 000000 “ 
•000000 
* nnnnnp 
,nOO?nn 

oorooo ' 

, pnnn n n 
•nOODOG 
• nOOCOO 
“•OOOOOO 

•oocoao 

.000000 

.nooooo 


•000000 

“iODOODD’ 

.000000 

,000000 

.ODOCOD 

"*0OG'’‘O0 

♦DCOOOO 

•oooono 

• ooo^co 

• Ooccoo 
tCoDono 
,000000 
•ooonoo 


.000000 

”,000000’ 

.000000 

.DCOPOO 

.nocroD 

.000000 

nnnp 

♦coonno 

.ooonnp 

. Dooroo 

.OOOPOO 

.000000 

,ooonno 


SUbPOOI INE dependent V ARRAY DATA - - - 


[(D 

h 


VR < 
VR ( 
VR ( 
VR t 
VR i 
■ypt 
VR ( 
VR t 
VR f 
■ VR ( 
VR t 
VR { 


40* 

651* 

760.00 

VRC 

4 1 1 

68 1 a 

20.000 

VR t 

41 , 

73)a 

.00000 

VR ( 

41 , 

78 ) a 

t OCCCD 

VRC 

4 1 , 

831a 

. 000^^0 

VR ( 

41 , 

881 = 

1 • coco 

VR ( 

4| t 

93 ) a 

,60000 

VR( 

43, 

651a 

,00000 

VRC 

43i 

70 1 = 

.OCCGO 

VR ( 

43i 

75)a 

.00000 

VRC 

43 , 

sola 

.00000 

VRC 

43* 

85 ) a 

6*2500 

VR ( 


40 f 
H W 

41 » 

41 I 

41 1 
41 I 
41 I 
43f 
43, 
43, 
43, 
44 t 


66 

^69) = 

74 ) ^5 
79)ss 

84 )a 

8?) a 
94 J = 

66 J « 

71 la 

7613*’- 

Sl)a 

651a 


•DOODO 
19,990" 
.00000 
,00000 
.00000 
62.400' 
4,0000 
*00000 
,00000 
' ,00000 
,00000 
I ,0000 


VR ( 
‘ VR{ 
VR ( 
VRt 
VR { 


4 J 
‘41 
4 I 
41 
41 


VRl — 41 


VRt 
VR( 
VR( 
VR( 
VR( 
VR t 


41 

43 

43 

’43 

43 

45 


651* 
-70>.^“ 
75)“ 
80 ) “ 
85 1 “ 
■90 )^“' 
95)“ 
67)® 
72)® 
■77 )® " 
82)® 
65) ® 


,00000 
"" 1 43 *25“ 

•orooo 

• GO OOQ 

•odooo 

-‘1 .4000' 

♦cnooo 

•OOOOD 

,OOOQp 

— •oncocr 

• OOC'OO 
•coooo 


VRC 
“VR ( 
VRC 
VRC 
VRC 


41* 
- 4 i 
41 
41 
41 


¥ tv » ’ * ¥ 

VRt“4l 
VR{ 

VRC 
VRC 


6 A ) a 
*7 ri 
76)* 

8l Ja 

86)a 


.ornoo 

C n n 0 n - 
.COOOO 
.00000 
.00000 


41 , 
43, 
43, 


VR t 
““VR C 
VR C 
VR C 
VRC 
“VRC 


4 I 1 
4 1- 
41 
41 
4 1 
41 , 


67 la 

72 ) »' 
771a 
82)» 
87) a 
R?)“ 


.ocoon 
le .000 
.ncoco 
,00000 
.gooon 
80000 


VR c 

VR t 


47 


96)a 

-ODOOO 

VR ( 

41, 

97) a 

•ocoon 

- 

6 fl ) a 

.ODOQO 

VR i 

42, 

*9Ja 

,cooon 


7 1 a 

. ncnrjn 

VP t 

43, 

74 1 a 

.00000 

o 

ro ■ 

-7r 1 a- 

— ^ n n n n 

■'VRC 

-'43t 

791a 

— * coooo “ 

83) ® 

* 

VRC 

43, 

84 1 a 

, n n p 0 n 

6t; ) S 

•ocboo 

VRC 

47, 

66 ) a 

155^00 

1— ‘ i 
1— » 1 


KR 


"COMPONENT^ NO,- ® 

subr, type 


40 

ALTCOM 


<j I 

TANKG 


—4 2“ 
UQMIX 


PUMP 


4q — 

SPLIT 


■“" 4 5"“ 

SPLIT 


- ' 4 6 * — 

LlOHlx 


J-SU0R NO./EXY/EXK 


2- pri sor/flo code 

3- PRI SPFL TYP 1-3 
H-PRI SPFL TYP 4-6 

5- SEC SOR/FLO CODE 

6- SEC SPFL TYP l*-3 

7- SEC SPFL .TYP 4-6 

a-NEXT COMP/CABIN 


9 -COMP NsTR l"*9 
“10-COHP NSTR'10-18 


‘I9COOOOO 

30000000 

7000000 

22qooocO 

• loooooon 

tODOOOOO 

7000000 

6302 

0 

-M500- 

10000 

4900 

10000 

4200 

10000 

«<306 

toooo 

.H«00 

toooo 

-8700 

lonoo 

0 

0 

0 

0 

n 

0 

u 

□ 

D 

0 

0 

-4 100 
lOOOG 

0 

0 

. n 
loooo 

. G 
1 coco 

4 4C0 
lonco 

0 

a 

D 

0 

0 

G 

D 

4 IDDOCO 

9200000 

<J3C0000. 

4400000 

<1500000 

46D00D0 

4700000 


. - ,c;7 

ALTCOM 

49OD0CO0 

4600 

lODOD 

C 


CJl ^ 

^ C 

t— * 


0 

z 

0 

48DOCQO 


I 1 1-NCFL/NLFL/NPAsS 
“I2-PRl“Vl5C/DENSlTir 

13-PRI op/dp/op/op 

IH-SEC YISC/DENSITY 
15-sec OP/OP/OP/OP 


20DOODOOQ 



401 


101 lOQOOO 
0 

401 


0 

— 0 ■ 

112 


200000 

0 ■ 


M2 


0 

“ -0* 
112 


O' 

0 

0 

•0 


0 * 

0 

0 

’O' 


‘ 0’ 

D 

0 

. 0 ’ 


’-"O’ 

0 

0 

— 0- 


0 

’ O ' 

112 

O' 

0 

0 

0 


SUBROUTINE dependent K ARRAY DATA - - t 
“ KRC 43, 16 J* 0 ■ KRC* 43‘r“17)*"’“ 


n 


KRr 


0 

lODOOOODQ 


0 

■ 0 


112 

112 

. 

in - 



n> 

"6 

0 ” 

Cl 

0 

0 

1—* 

0 

0 

c:> 

0 

Q — 

1— » ; 1 
cn j 
1 1 ^ 






component NOt ■ 

subr. type 

V R 

1 - TOTAU PRI FLOW P 

2- TEMPERATURE _R 

3-OUCT CUTLET P I 

^-COMP OUTLET P « 

5 -non-cond flov/ a 

>t,-.COND VAP FLOW P 
7-^COND LIO FLOW ' T 

8 - N-C SP heat 

9- N*-C MOl S 

10 -OXYGEn flow _ 1 

1 I-DILUENT flow ^ 2 

12-C02 Flow e 

13**7RACE CTH flow 
M*.SPCL Flow i D_ 

I I5-SPCL flow 2 A 

1 U-SPCL FLOW 3 T 

J 17-5PCL flow ^ A 

: 18-spcl Flow 5 

^ 19-SPCL FLOW 6 

20-total sec flow S 
2 * -temperature E _ 

PcT — 22-DUCT CUTLET P" C 
I V Z3-COMP outlet P 0 
I 45, 2H-NON"Cor-:0 FLOW N 
I 25-COND VAP FLOW _ 0_ 

26-CONO LIO FLOW A 

' 27-N-C SP HEAT R 

28- N-C HOL WT V 

29- oxygeh flow 

: 30-DILULNT flow S 

> 31 -C 02 flow 1 

32- trace CTM flow D 

33- 5PCL flow \ _ E_ 

‘ 34-SPCL flow 2 

3S-5PCL Flow 3 o 

/ 36-SPCL Flow a 

37-5PCL Flow 6 _ T_ 

: 38-5PCL Flow 6 a 

39-DHf Cl OP PRl F 

[ *^0-LEi N, K DUCt R 

* Rl-FF area ■ ^ 

Ci DP PR I | 

; R3-LEi Ni k coup s 

9H-FF area ^ 

r 95 -DH I Cl DP SEC C 

R6-LE» N* K duct 0 

R7-FF AREA ^ E 

\ 98-OH, C, dp SEC F 

i H9-LE| N, K'-CORP F 

i 50-FF AREA 


— altcom -^ 

• 000000 
155*000 
.000000 
t 1 900C0 

•ooocoo 

•000000 

•DOGCeO 

•occcco 

•OODCCO 

•occoco 

.000000 

•occoco 

•ooccoo 

lODCOCO 

•ocooco 

•000000 

•ocoooo 

*000000 

.000000 

•ooooea 

•ocoooo 

.DCC009 
• 0000 0 0 
♦oooooo 
,000000 
'.OOOCOO ^ 
♦DCOOOO 
•DOCOOO 

.nnrQnQ 

•occooo ^ 

•DOCCOO 

•OCODOO 

•ooooro 

' ,000000 ■*“ 

• GCCOOO 

• OCODOO 

• OOCDOO 

" •000000 “ 

•OQOODO 

• QG '' 00 ^ 
“♦OCODOO 

• OOQDOO 
•OCODOO 
.000000 

" .OODDOO 
•OCOGOO 

• 00 C 0 0 □ 

• OCOC 00 
’^.□GGCOO “ 

•ODOOOD 


fCOOOOO 
B9.782 I 
1 90000 ■*" 

•ncooeo 
•ocoaoo 
.nooooa 
- ,000000 
.cc JODO 
.OCODOO 

^ rt nnnnn 

' .ccoooo ^ 

•OCOOCQ 

♦cocooa 

.OCOOQO 

" .coocoo “ 
• coocoo 
.cocooo 

g nnnQHO 
" tCOOODO "* 

•ccooco 
89.9821 
' 14,7000 “■ 
♦OCOOCD 

0 ocoooo 

.CDCOOO 
■“ .000000 ' 
,cccooo 

♦CDOCOO 
•COODGO 
“ ,000000 '■ 
.COOODO 
♦OCODOO 
•CODOOO 
■“♦CCODOO ' 
•ccoooo 
♦ ocooco 

♦OCODOO 

•000000 

•COCODO 

♦00DQOO_ 

,000000 

•cooooo 

a 000000 
*000000 
, rcocoo 

♦DOOOOO 

, r n n Q -n 

*ccoo ?5 

— .DCCOGO 

. cooooo 


51-COMP SOURCE TEMP 


• 000000 '“ 


'8H,865H ’ 


♦000000 


/ 


..60 

Cabin - 


* DOCOPO 
f OODCCO 
’. OOCDDO " 
♦COOOOO 
•DOOonc 

,cconoQ 
- . r * C 0 
.COCnOO 

♦ccoono 
, Dcocro 
“,000000 
,000000 


•OOOOCD 

65,DOOO 

-; gooooo ^ 

14.7C0D 

.000000 

15.0000 
“,000000““ 

,242500 . 
28,9700 

588.000 
“194 1 ,00’” 

12,0C00 

•ooccco 

• OODCOO 
“*• DC""' 000 

.ODoboO 

• oooroo 

“•OboODO ” 

,000000 

• OO'^OOO 

“‘.000000'“ 

.000000 
♦oocooo 
.cooooo 
” ♦ cc"^rco ’ 
, nrncCO 
,cc5oob 
•CCDOCO 
“ • O'^COOO “■ 
,000000 

• 0 0 D 0 0 0 

,000000 

— .oonroo'’ 

• C 0 C C C 0 

, nn'Tbbb 

, 0 D C 0 0 Cr 

— .bcbcbo ■ 

,000000 

• OO'^COO 

— ioobcco' 

. oooooo 

• DC'^CCO 
♦OOCPCD 

— . cocroo " 
♦OOGOGO 
,000000 
, Q n f n n n n 

— .oobcoo' 

• cooooo 


1 77D.00 
65-0000 
”i«,7000 
\ 9,7000 
1270*50 
7.5COOO 

oncooo 

,741294 
28,895 1 
794,^00 
'970.500 ' 

6 . DcnoO 
,000^00 
♦nncoon 

“'♦orcooG 

, oorooo 
. ncrbnn 
• ^nr nnn 

—.oocboo ” 

i 778 ,00 
65*n0D0 
-i4,7con“' 
l 0 ,7000 

1270,50 
7,50000 
-“,nPDOOO“ 
.741 294 
2p*PP5l 
294, ron 
-“970.500 "■ 
6..0CC00 
« oorooo 

•obbbbb 
~ 000000“ 
• COCOCO 
^ r»n DC n c 

« ^orrno 
'^ , nncb 0 C " 

•OOOPQO 
, n*^CCOO 
— • conoDO '' 
,000000 
^ r« 

♦bbcbcb 
— •occoc? ’ 
,norroo 
, ccocoo 
. nncnnc 

— ,o 6 ccqo'’ 
*000000 


1273.00 

65.0000 
“ 14,7000 

14,7000 
1270.50 
7.50nOO 
-“♦CCOCOD 
.24 I 29** 
26,8951 
294 . non 
-“970,500 “ 

6 . ocnoo 

•OOOOOQ 

,000000 

-“•000000'“ 

• c ccooo 

•COQPOO 

« 0 n 

— ,oo 5 ooo '* 

•COOOOO 

•COOOOO 

“.□ 00000 ” 

♦OCODOO 

*000*^00 

.OCOnno 

— ,ctocoo " 

• CQOcOC 
.cocnnn 

♦cooccc 

“ tccoroo • 

• OCODOO 

• eODDOO 
•CCOCCD 

— .Doonoo ■ 

, n non pn 

♦ccoboo 

.CDOoOn 
— . OCCCDO ' 

•000000 
♦OOOOOQ 
— iODOono ’ 

• OOCnnc 

.OODCOO 

♦oorono 

, CQCnCO 

• CODpDO 
• COQCOO 

• DCOnno 

tOOOOQO ' 

•000000 


1278-00 

69,4101 

' I 4,7003 ” 
14,7003 
1270,50 
7 , 5?rn3 

.2417^4 
2R.S95S 
294 .pDO 
* 970, «C0 
6.ocrni 
♦oocrco 

•CGOCOO 
'~,COPr^O ■ 
, nnrpCD 

, b c b r c 5 

^Qpnnnn 

- ,ODDDDC 

-ooonno 
-oooroo 
“-ooonno ■ 
•CDDPDD 
, nor nn n 

,bccr?D 

“ , nnnpnn ' 
♦bobnpo 

•cDoroc 

•coorco 

“-DOonoo 

•DOonoo 


lOOOOOO ' 


lOOOOOO" 


'iflODOOO' 


•000000 






%% 


S2-£f*?^ SUMMED COnD iDOOOOO ;^8«06252 

'53-COMP QTOTOU LqSS •000090 \ 2 \ * 0^2 

54- tAM8IlNT gas temp •ODOCOO 70*0000 

55- AMBIENt UA *000000 3,00000 

56- AM5 COnv Q LOSS .000000 45*0388. 

57- AHB \^AlL temp . 000000 70*0000 

58- AM8 5Cr1PT(PUA iQOCOOO 1 *00000 

59- AMB rad Q toss *000000 l5.9Sl5 

60- structure TEMp *000090 70*00n0 

61- structure KA/x *000090 4,00000 

62- structure 0 LOSS *000090 6c, 0518 

63- insulation TEmP .000090 85.0129 

6H-IN5ULATJ01VJ KA/X *00 9000 *0000 00, 

subroutine dependent V ARRAY DATA - - - 


•OOOCOO 

*000000 

•090000 

,000000 

*000090 

’**090090' 
•099990 
♦DOCDOO 
•OODCOn 
' *090900 
*000900 
•000090 
_* DOOOD 9 


_*ooocoo 
* 000000 ' 
* ^oQnnn 

.090000 
.9C9CD9 
"• 9C00D0 " 
♦ O 09 COD 
♦OODonO 
*909990 
*009000 
fOcoono 
*009000 
_*99C0O0 


65) 
68 > = 
73 )=: 
78) = 
83 ) = 
88 J « 
93 J « 
98 I K 
103)” 

1 90 I = 
113) = 

65 ) K 
68 ) = 
73 ) ^' 
78 ) a 
63 J » 
P 8 I = 
93) = 

66 ) = 
6B ) = 
73 ) = 
7H ) = 
B3 ) a 
68 ) a 
731 = 
78 J = 
83 ) = 
P8 I = 
93 ) = 
98 >= ‘ 

1 03 ) a 

108) = 

I 13 ) = 
n 8 ) a ' 
123)« 
1281 = 
1331 = 
138 1 a 
M3 )» 

M8 ) n 

1S3) = 
isa la 


.00000 

50*000 

•09000 

• 19000-03 

129.00 
1*9000 
.00000 
30.900 

15.000 

“1 *090? "■ 

rtn n rn 

* 09990 

.09990 
.0900? 
.09009 
.09900 
.09900 ’ 

* 09900 

.OO^on 
12 ^ 1.0 
235.16 “ 
.00000 
•GOOOO 
. D 9000 
" , n 9 n n Q 
1199^0 
1 5 t 009 
. 20 ?nn 
<13 .4 M 
279.34 
I . 6393 
212.13 
' .00009 
,09000 
^ QnnoD 

69.410 

“ .ouono 

♦ 09 909 

« 099 o 6 

^ Qnnnrt 

’.OODOO 


6 6 ) a 

‘69J=: 
74M 
79M 
84 ) = 
891 a*' 
94 ) = 
99) = 
lQ4)a 
I 09) = "" 
1 1 4 ) = 
66 1 = 
69 1 n 
74 

791 = 
84 ) a 
89) = 
94 )a - 
651 = 
69 J = 
74 1 = 
79) = - 


.00000 

*00000 

.00000 

90.000 

.ocooo 

'.40000 
. I 9740-01 
32.500 
.25000-01 
'• J 0OG?-O\ 
*00900 
. DCOOO 

.09000 

' .00000 
*00000 
.00900 
.00090 
' #00000 - 
•59000 
.00000 
99.QS5 
305*40 


VR ( 

56 , ^ 

04 1 = 

.00000 

VRt 

60 

VR ( 

60 , 

691a 

-648.9 1 

VR( 

60 

VR( 

60 , 

741 = 

.OOODD 

VR t 

60 

“VRt 

60 , 

79) = ' 

■ ‘ .GOnnO 

VR ( 

60 

VRt 

60 * 

84 ) = 

365^90 

VR ( 

60 

VRt 

60, 

89 ) = 

.3R5i3 

VR C 

60 

VRt 

60 * 

94 1 a 

3 *04 i 8 

VR t 

6? 


49, 65)= 
49, ”70)=' 
49i 75)« 
49, 80)» 

4 9 8 5 1 = _ 

"49 , 90 ) *= 

49. 95)“ 
49,100)= 
49 , 1951 “ 
49 , ! 10 1 = ‘ 
49,115)= 

5 1, 65 ) “ 

5 I * 79 ) = 

'51 . 75)=^ 
51 , BoM 
51* 051= 
5! * 90)« 
51 • 95> = 
58, 65)= 

50, 7C>« 

50, 75)= 
56, 00)“ 

60, 65)= 
60* 7Q)= 
60* 75)“ 
60* 80)= 
60* 85)= 
60, 9o)= 

69, 95)= 


99) = 
1941 = 
1091 = 
114 1 = 
i;9i = 
124) = 
129) = 
134 ) = 
139) = 
144 ) = 
149) = 
154 ) = 
1591 = 


^ * U ■ J 

7 .600*3 

VR { 

•■60.10^1““ 

— 2.3346“ 

69.4 10 

VRt 

60»105>= 

1 4 ,7on 

•OOOOO 

VRt 

6C»UQ»® 

*24 129 

1.3115 

VRt 

6D. 1 I5l" 

♦ nnOOO 

•ccnoo 

VRt 

6C» 1 ■ 

*00090 

.GOOOO 

VRt 

h?.125l= 

. n p 0*^ 0 

• OODO? 

VR ( 

AO > 1 3^ 1 = 

69M1D 

« ??D00 

VR t 

60« t 35 1 = 

-.16272- 

3750.0 

VR { 


— 19.002 

#00000 

VRt 

AOi M5> = 

♦99000 

.0000? 

VP ( 

60i 15p)» 

*00090 

*09000 

VR ( 

60i 1S5)= 

99*090 

•oooco 

VR; 

60»1A0):> 

■“‘♦ODOOQ 


* ooooo _ 
150*00 
•25000 
1 0587* 

• ooooo ^ 

'♦OOOOO 

•ooooo 

37.000 

* C . 00 ? 
“6 .0?9n“ 

*0000? 

. 000(?9 
•cnOOo 
‘.OOQOO'' 
•OOOOO 
•00090 
•oooon 
•C9000 
*00090 

• 00?9o 

92.586 
■ 9 . 4484 - 
1380.6 
•OOOOO 
•99000 
' .09090 
. P ^9 99 
1 4i70Q 

1 1 .475 



♦000000 
* 000000 ” 
• ocoooo 


•000000 

.aocnno" 

•99C99? 


• cooroo 


*n?onpo 

1 

♦oooroo 


• nnnnco 


00990? 


fjnpn 0 n 


, QponQn 


.0^09^0 


*o6oo?o 


*990900 
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VR ( 60 • 7 1 ) = 

VR( 60* 761= 
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vRt 69, 86 )= 
VR ( 60 » R l 1 = 

VRt 69,_R6)= 
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VRC 60.106M 
VR ( 6 C , 1 1 M = 
VR 1 60 , 1 I 6 ) » 

' VR 1 69 ^ i 2 i J n 

VR( 60 ,i 26 )= 
VR( 69.431)= 
VRl 6C,:36)= 
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, M965-02 
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^OOOOO 
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33.900 
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P3.541 
“•OCCDO 
731*67 ' 

•ocnco 

iI09*0 " 

■70-^C? 
.99^90 
.39990 
C 0 . nnn 

"25D.6? 

I 4-790 

78.885 

-nc^oo 

“ ^ np ^ n o 
. Dro<^n 
6 R . » 1 0 
. 14722-04 
- 67.77R ■ 

-onooo 

.09000 
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VR ( 
VR I 

VRt 

VR ( 
VR ( 
VR ( 
VR< 
VR I 
VR( 
VRl 
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V“t 
VR ( 
VRf 
- “'VRf 
' VR ( 
VR ( 
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VRf 

VRt 
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VP ( 
VPt 


49 , 67 )= 

.oooon 
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B 9 . 9 P 2 


49 , 77 )« 

.25000 


49 , 82 )a 

J 6.000 


49 . 87 )= 

#45000 


« 9 , 921 = "" 

.00090 


49 , 971 = 
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o 

4 ? , 1 n? 1 = 

I 5 * 09 '^ 

1 NJ 

49 , 1071 = 

10 . 00 '^ 


4 ? . I 1 2 > = ■'" 

•OCOOO 
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* 9^090 

CX 5 

5 1 . 67 ) = 
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CTJ 
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# 99990 ' 

{ 

51 , 871 = 

^ nonnp 

r \2 

51 . 87 )= 

•OOOOO 

> 


.73242- 
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VR ( 


bn, P / ^ a 

58* 7?)n 
58 , 77 ) = 

■ 58 . G?) « 
60, 67)= 
60. 72)= 
6 ^, 77l« 
'69, 821= 

60 . 87 > =s 

6 C • 9 7 7 = 
60, 97)= 
“60*102)* 
60, 107)= 
6 C* 1121= 
60.1 17 J* 
’*'60,172) = 
69.1771= 
69 , 1 32 1 « 
69.1371= 

' 69* 147)= 
60, 147)= 

60. 157) « 

60.157) = 

— 60,1 621 ^’ 


, n n go n 
^ n n 

• o^ocr 
309 • 9^5 
1 30.77 
•ooQcn 
#00900 
• 99900 
• OOOOO 
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7n . pp'i 

3 ; jn-T 

15*099 
’ .00099 

277.70 
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#cnoop 

• ?''09P 
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#3?00C 
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VR ( 

60 r 1 63 J » 

.00000 

VR ( 

60,16*n« 

•ocooo 

VR{ 

60,165)« 

YRf — 

6Di 1 68) » 

.00000 ““ 

— VR r" 

6Qi 16?)® 

*00000 

— VR (— 

6 0 t~l 7 0 ) 

VR ( 

6Dt 173)= 


VR C 

60i17?)® 

69.^10 

VR t 

60.175)’' 

VR ( 

6Dt 178)= 

.00000 

VR { 

6Dil79)a 

.OOOOO 

VR C 
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-69.'^lo 

•26V03-0^ VRt 


6Q,:66)* 
“60;i7rr='- 
60 T t 7 a > « 


.00000 

.00000 


VRt 60*167)1 

-VRC 60*172)1 

VRC 60*177)1 


•ODOOn 

™69.^1D 

-.1 1981-0*1 


' COmPONENT'^NO." 

i\Q — 

H9- 

subr, type 

ALTCOH 

WASDRV 

KR 



^ l-SUe? NO./EXV/EXK 

M9000000 

70005000 

i 2-pri sor/flo Code 

8700 

4800 

3-PfU SPFU TVP 1-3 

lOOCO 

10000 

ii-PRI SPFL TYP R-6 

0 

D 





5-SEC sor/flo code 

0 

-4002 

6-sec SPFL TYP 1-3 

0 

0 

7-.SEC SPPL TYP 

0 

0 

^ e-NEXT COHP/CABIN 

H900000 

500000Q 

9-COMP NSTR 1-9 

0 

1 10000 

1 lO-COMP MSTR 10-13 

a 

0 

1 lI-NCru/NLFL/NPAsS 

112 

401 

^ 12-PRt VISC/OENSITY 

Q 

■ ■ 0 

Ip 13-PRI Op/ DP /OP /op 

0 

n 

'i; J9-SEC VIsc/OENSITY 

0 

0 

15-SEC OP/DP/OP/DP" 

— — P 

0 

SVC-POUTlNF dependent "K~ 

■ A R R A Y“ D A T A— -*• 


,# KR» H9, S6)" 

0 KR< 89, 

• 17)® 

•1 KR( 51, 18 } = 

0 KR( 56, 

16)® 


50 

AUTCOH 

*«9ooooo6 


5100000 


23000000 


2200000 

3000000 


) kR« *19, ie)« 

n KRt 58» 17)» 


55 

ALTCOH 

*1900000n 


56 

SPLIT 

10000000 


Sit 16)> 

60t 16)3 


5500000 


3003000 


6000060 


-- 60 

cabin 

1020000^ 

6602 


-5802 

0 

0 

6100000 

200nCDOC? 


KRI 51* 171» 
KR( 60, 171= 
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COMPONENT NO, 
“ 5u: ‘ * Type ^ 
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“'SPLIT' 


1- TOTAL FRI FLOW 

2- TEM.PERATOrE 

3- OUC7 OUTLET P ' 
M-COWP OUTLET P 
5 - NON-COND flow 


832*000 
69 .R lei 
' I R • 7000 
l«4*70CO 
827* 1 17 
H , 88265 
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“CH ruLR” 


832*000 
69**U01 
M •7000" 
1" *7000 
827 *1 17 
H ^ QQZ 6 B 


•_.r 

“ 7 -CONO L!Q FLOW 

Y 

tOOOCOO 

•CCDCOO 


S-N-C SP heat 


.291299 

♦ 29 1 299 


9 -N-C HOl I’rT 

s 

26 D 80 S I 

Z 8 «S 8 St 


IC-OXYGEn flow 

1 

i 9 l . 399 

1 9 1 .399 

■A; - 

li-DiLUENT Flow 

D 

631 »ei 2 

631.312 


12 -C 02 Flow 

E 

3 . 7 C 61 I 

3 . 9 C 6 1 1 


13 -TRACE CTM FLOW 


•ooccco 

.COCOQO 

■f- 

M-SPCL flow 1 

D 

, g n c c nn 

♦ ^ n n^r«Q 


15 -SPCL Flow 2 

A 

•Dbcrob 

^prOOOGG 


16 -sPCL Flow 3 

T 

. ng 

♦ rccono 


17 -SPCL Flow 9 

A 

♦ 0 £ U C n 0 

.OCCGOO 


la-sPCL Flow 5 


.OGDOrO 

♦aoccco 

.ico 

19 -spcl Flow a 


•occaoo 

♦DOOOGO 

I 

■=:CJi 

20 -total sec flow 

s 

•DOOGOO 

♦boOOQO 

•^o 

21 -TEKPERATURE 

E 

69 .H 101 

.CODGOO 


22 -OUCT CUTLET P 

c — 

iH, 7 csa 

.OGOOGO 


as-copp oOtlet p 

0 

1 9 • 7000 

♦ ccocoo 


29 ~[iCN-CCLD FLOY/ 

M 

. occooo 

• CCCGGO 


25 -CCNO VAP FLOW 

0 

•COCODO 

trcccac 


26 -COMC Ltff FLOW • 

A 

.ococ?o 

♦oococo 


27 -N-C SP heat 

R 

*291299 

fCLDOOO 


28 -N-C mol Y/T 

Y 

28 .SRS 1 

rCCCODO 


29 -OXYGEn flow 


*PQO 0 ?O 

• 000 ^*"^ 

■■ ■ ■■ 

3 C- 0 ILUE?jt FLOY/'"*' 

s 

. ^:ccco 

— w*?ro 5 c 6 


31 -CC 2 FlOv. 

1 

• 0 C C C C 0 

GCO 


32 - 7 RACE CTM FLOW 

0 

•nnnrrg 

■ , 3 OCDO 


33 -spcl Flow i 

E 

•rcGDon 

pOOUCCC 


34 -S--CL Flow 2 ” 


• CCCC *’*0 — — 

— , GGCOGO 


35 -SFCL Flow 3 

D 

♦DCCC^Q 

♦rcDobo 


36 -SPCL Flow 9 

A 

.OOOGQQ 

.CCDOCO 


37 -SPCL flow 5 

T 

•OOCDOO 

•oooooo 


38 -spcl Flow 6 

A 

■ .OGOCCO 

.ccoooo 

.;V 

39 -DH^ C. DP PRI 

P 

•OCDCOO 

.CGOODO 


9 Q-LEt N. K DUCT 

R 

•ccocoo 

• ''COC '^0 


91 -^Fr AREA 

t 

■ * 0 G C C D 

.GCCCGO 

% 

92 -OH, C, DP PRi 

S 

.000300 

.caODGO 


93 -LE. N, k COMp 

5 

, gr n gn Q 

♦CDGCGO 

' 

99 -FF area 


♦ CCCD'^G 

* GCGCOO 


■ 95 -DH, C , DP SEC 

C 

'.OCCDOO 

• coaooo 


96 -LE, N, K duct 

0 

•OOCDOO 

.GCOCCO 


97 -FF area 

E 

•OGCOGD 

•OGGOCQ 


95 -OHt C, DP SEC 

F 

.OCaCDD 

.GGCDC 3 


99 -LE » N . K ■■■ COMp 

F 

‘ . OCCOGD 

.OCOODO 


5 D-»FF area 


•OOGCGO 

• OCGOGG 


'Si-CCMP SOURCE temp 

. OCCOOO 

— - 8.00958 
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•ocoocn 

fOOOOOO 
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f 
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•occooo 
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tOOQcnO 

^ ,000000 
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•OCCOOO 
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• OOOnnG 
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•OODOOG 
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^ ri n p n n n 
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“•OOOOOO” 

•OOCOCO 
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» n n n n 
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•OOCOOO 
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* COGOCO 
•OCOncO 

' « C C ’ 0 n 0 
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'.OCOODO' 

♦OOOonO 

• 000 ?nO 

•ooonoo 

♦ nrPnnQ 
•DOOCOO 


•DODOOD ■ 


6S 

"^/TSKir 
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"^ASMir- 


832 .GOD 

832.000 

69.9101 

69.9171 

1“.7D0?* 

1 9.7700 

1 9.7000 

14.7C70 

827. 1 17 

B?7. J 17 

9.88765 

9.88265 

.CDOGGO 

.cnrnoo 

.29 1 299 

. 79 1 299 

23.P'"5l 

29.8851 

191.399 

1 9 1 .399 

63l.fll2 

631.81 2 

3.<Jn6I 1 

3.9C61 1 

. 003000 

. porron 

* ^n•^^Qn 

, n ppr n n 

.003730 

. nnipf^pn 

• Cn^'ron 

• nctoon 

,tjnnnr.9 

.OOG'^'^O 

•ocrooo 

•noGcnn 

'.OOOGCO 

.OGDOGO 

•ocoroo 

•rooobo 

•007COG 

• 707^70 
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.ooooco 
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■.DOOOOO 
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“CHAN’* 


1278.00 
65 • OGOO 
“ 1 H . 7 nC 3 ‘ 
1 M ,7000 
1270. 5C 
7 c Sonoc 
"•oaonco 

• 29 1 29 ^^ 
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299 . npQ 

6 * 00^00 

• onooro 

« 00 '^OOO 

“tCcoobc 

• cobbbo 

• 000000 
•COCDOO 

“ cocooao ' 
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8 cooron 
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•Gcooob 

•CGO^OO 

•OQHnng 

•ooonno 

• CnooOO 
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♦GCOr^n 

■ • 000 ^no 
•000000 


.000000 


Vs- ^ 


. 7 n 

"CASIN' 


•ccnnoo 

6 9 • 7 1; 6 0 
"1 9 .?ro? 

I 9.7^00 

•cooFca 

•ooonco 
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•2H 1299 
28*F«Sl 

.co^^rn 

■ ^ r»nn n n 
^ r gnr r g 
, b n 0 n n 
^ nn r r 

^ ,cbo''ob 

, pgppno 
• r n gr nn 

.ooc-'no 
' .000000* 


0 
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1 278 , on 

69.756*' 

X • ?r7 ? 
1 27n ,3f 
7.63^:*^ \ 

1 

8571-2A 

• .OOOrco 

.29 1 299 
2P.SS51 
793 . fP 



. 0 ^ 3 

. r 0 - p 7 n 

• 

■” .^'ornoo 

, ngnr ng 

•robnoo 

• 0C0~00 


.070770 

• OOO-'CO 
.GO**’ ''73 

Q 

< 

Ul^ 

♦ roc's 0 

•CG^rOO 

.nco-OQ 

.ocoroo 

0 

CL 
f— * 

.ocorro 

0 

• CDO''CO 

f 

.7077G0 

CTj 

.nCOrro 


‘ , nn n^rr 


.ccbrcb 

en 

•GoonuG 
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S2-EFT SUMMED COnO 
'53-COMp QtOTOL LoSS^ 
5*<-AHBI€NT gas TEHP 

55- AMBIENT UA 

56- AMB COSV Q LOSS 

57- AMD WALL TEMP 
5a-AHB SCR1PT[D«A 

59- AHB Rao C LOSS 

60- STRUCTURE temp 

6 1 -.structure KA/X ■■ 

62- STRUCTuHE Q LOSS 

63- INSULATIOW TEmP 
6R-INSULAT I ON KA/X 


•000000 

.772578 

•000000 

"’*000090 

— 66.0067 

• 0 0 0 0 0 0 

♦ ooccoo 

70*0000 

•000000 

.000000 

'»S«CtOO 

•000000 

*000090 

-37.2313 

•GOOCOO 

“•OOOOOQ 

■■ ■ /Osoono 

•000900 

.000000 

2DtC0D0 

♦ODOCOO 

• 000000 

-16.0121 

• COOOOn 

.000090 

70.0000 

♦OCCOon 

.ODCOOO 

.acoooo-oi 

. D C 0 0 0 0 

•000090 

-6.24224 

.OOGOGO 

•0CC090 

69.1726 

•000000 

♦OOCCOO 

.700000 

.ODCOOO 


subroutine dependent V ARRAY DATA - - - 
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VR ( 
VR( 
VR ( 
VR ( 
VR ( 
VR ( 
VR < 
VR ( 
VR ( 
VR ( 
VR f 
VR < 
VR t 
VR't 
VR ( 
VR t 
VR t 
VR t 
VR < 
VR ( 
VR I 
VR (' 
VR ( 
VR ( 
VR ( 
VR C 
VR ( 
VR t 
VR ( 
VR ( ■ 
VR ( 
VR ( 
VR ( 
VR ( 
VR ( 
VR { 
VR ( 
VR I 
VR ( 
VR< 
VR ( 
VR ( 
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62 

62 

62 

62 

62 

62 

62 

6? 

62 

62 

62 

62 

62 

63 

60 

68 

68 

60 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 

70 
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65)=: 
69)« 
7R ) = 
79 ) 

8h ) a 
89 ) = 

9 H ) = 
99)3 
J OR ) “ 
109 ) « 
n 4 J o 
1191c 
12^)^ 
129) = 
65 ) » 

6 5)3 
70 ) = 
75) = 
80)3 
65 ) = 
70 1 » 
75)3" 
00 ) 3 

05) = 
90)« 
95 ) = ■ 
1 no ) = 

I 05 ) = 

I I n ) 3 

I 15) = ■ 
120 = 

1 25) « 

120)3 

135)3' 

J RO ) 3 
I U5 ) 3 

1 5n ) 3 
155)3 

160)3 
16 5) = 
170 ) « 
175) = - 


.00000 

2i0900 '■' 

I 0*000 
•7 » 7 i j 3 
*5 iCOOO 
.00000 
1 5 . 006 
.2^000 
-7.7633 

•00000 

♦CGOOO 

• H 9 000 

^ o r n Qn 

3V;750 

1 *0000 
.00000 
.00000 

92.373 

2 .3659 
1 H5R .5 

•ooooo 
.00000 
« OOOno 
.00000 
I R.700 

1 1 .630 

2*3660 
IR.901 
•2H 1 29 
•OOOOO 
.00000 
t 0 0 

69^756 
-• 120HO-OR 
10.999 
.00000 

♦ CwOOD 

90 • noQ — “ 

.OCOOO 
.OCOCO 
69.756 
. 36106-01 


VR ( 
VR( 
VR( 
VR( 
VR( 
VR { 
VR( 
VR( 
VR ( 
VR t 
VR ( 
VR( 
VR( 
VRC 
VR( 
VR( 
VR ( 
VR t 
VRC 
VR ( 
VR{ 
VR ( 
VR t 
VR t 
VR ( 
VR ( 
VR( 
VR ( 
VR ( 
VRt 
VR 1 
VRC 
VR ( 
VRC 
VR ( 
VRC 
VR ( 
VR C 
VR C 
VRC 
VR C 
VRC 


62 
‘62 
62 
62 
62 
"62 
62 
62 
.62 
-62 
62 
62 
62 
- 62 
6^ 
60 
60 
- 68 
68 
70 
7D 
-70 
70 
70 
70 
"^70 
70 
7Q 
70 
" 70 
70 
70 
70 
' 70 
70 
70 
70 
’ 70 
70 
70 
70 
‘70 


1 »880S 
1 .0000 — 
'9.656-^ 

•ooooo 

•DOODO 
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“.OF^CCO ’ 
.OOOCOO 
.ccoooo 
•oooocq 

-.OCCCOO” 

. OOOCOO 
.□DOOCO 
'.OOOCOO" 

.oconoo 

•OOOCOO 

.OOOCOO 

' f OO'^FOn ■ 

•cooroo 

• rcf'cco 
♦ccoooo 

“ .OOCDOD 
•OOGOCO 


‘♦OOCCOO "■ 

•noocno 

I 6i .538 
‘85^CCOC ' 
85.DCOC 
•oOOOCO 

« n^rnrjp 

“• occcoo " 

• nnnc*r>0 

.n 6 c"'C 0 
♦ POCOOC 

“ . coocco** 

. nOGOOP 
•coccco 
.OOOCOO 
'.CDOCOC* 

♦coccco 

♦cnnoDc 

• OCDCOC 
”* CO DO 00 " 

.OOOCOO 

•coocoo 

’-.OOOCOO- 

.qocrnn 

• OOCf'CD 

♦nococo 

•cocrno 

• occooo 

• OOCO'^0 
“.QOOnDD ' 

.ooooco 


87 

SPLIT- 

♦000000 
161 .S86 
‘85.0000“ 
85,0000 
♦000900 

• DOCriOO 
OCCDOO “ 

. C D Q C C 0 
•OCOCOO 
.000000 
-.OOCCOO — 
*000000 
.000000 
, onnnoc 
■tOOOOGO “ 

• DC 0 C 

• 0 n n 

, Dconco 
'• COOOCD 

♦OOOCOO 

16.] »SBR 

' 85,OCOO“ 
85 ♦ 0'’»C0 
. CCCOCO 
.DDCn'^0 

- . CODCCO " 

• 0 C 0 C 0 

♦coooco 

•OOOCOO 

-• oconoo 

.OOCCOO 
♦GOCnno 
. CCOnco 
~,Pnnnnn~ 

• COCnOO 
.OQCPOO 

• OOCCOO 
OOOqOO ” 

*000000 

•000000 

— .OOCOOO'' 

.000000 

I OnODDD 
•OOOCOO 
“ . OOCnoO ’*' 
.OOCOOO 
.OOCCOO 
• ODOGOO 
-.000000“ 
*000000 


• dqoood*^ 


88 

tTOMtX 

♦ooonoo 

•oocooo 

“.ooonon 

« oconoo 

• OOC'^no 

♦cccnco 

' .oocnno 

.noonop 

.oonroo 

'.COOOQO 

• ODCnOO 
•ODCnOO 

« oococo 

■ .CCCnCO 

^ rj nQ 

• CPP-'CC 
*CGCPCC 

‘.oorcco g- 

• COOnQO I— t 

• OOOCOO I—* 

’ .oocnno or- 

*C0np00 cn 

• ccppco 

♦occ^nc Y 

’.occcco KIT 

.POCnCQ 

.ODOnno 

.COOnQO 

^.oocnco 

•OOOCOO 
. DCCCCO 
•COGrOO 

--.CCnnC0 

.coccco 

^ocGcnn 

•ooccco 

■ .OCCCOO 

.ooonoo 

.009000 ^ 

-.DOUnoD nr- 

.ooonro < 

.ODOnOn 

•coonco S 
-.cocnco — oT 
.oocnno 

^pOCnQo 1-* 
•COCnOO o 

'.DOOnOD 

.000000 ^ 

I 

•vl 

-.000000 — o r 


52-EFF SUHHFI 
"53-COMP OTOTi 
5«}-^AMB]Ent G 

55- AMBIEnt U 

56- AMB CONV 
'57-AHB waul 

58- AMB scrip 

59- AMB RAO a 

60- STRUCTURE 
‘ 6 l-STRUCJUHE 

62- structure 

63- INSULATIO 
6H- INSULATIO 


D COnD 
OL LOSS 
AS temp 
A 

0 L0S5_ 
temp 
T ( F) #A 
LOSS 
TEMP „ 
KA/X 
Q LOSS 
N TEMP 
N KA/X_ 


.000000 
^000000~ 
♦ODOQOO 
•000000 
•OOOOCO 
' *000000 
.000000 
•000000 
•000000 
‘ .000000 
•ODOOOO 
•OQOCoQ 
tOOOCOO 


* 000000 ^ 

^♦cooooo 

•000000 

•ccoooo 

•000Q09 

•cooooo 

•ocoooo 

•ccoooo 

, npQnno 
'•OCOOOO 

•ccoooo 

•OOGOCO 

•Qoqooo, 


subroutine dependent V ARRAY DATA - 


♦000000 

%000000^ 

♦000000 

♦000000 

•ODOOOO 

".OODO?0' 

♦OCOODO 

tODQCCt? 

•DCOCOO 

".000000 

.000000 

.000000 

. 000000 ^ 


) 62.2B 
.00000 
.00000 
.00000 
j Ortr*O0 

.565oo' 
1 a .000 
.00000 


VRt 79. 
vRt as 
VR( 65. 
VR< 85. 
VRt B5|. 
VRt' '85. 
VRt 85, 
VRt 85, 


♦ 00000 VRt B0._65 

'.00000 VR( 85. 68 

«5.000 VRt 05. 73 

,00000 VRt 85, 78 

.l70l')t.^l_yRi,_.fS»-83 

.00000 VRt 85. 88 

9.9Q00 VRt 85. 93 

9.7698 VRt 86. 65 


component no; ■ " .."-nj 

SUBR, TYPE ■ AUTCOH 

KR 

_ IfSUBR NO./EXV/EXK H9000000^ 

2- prj sor/flo Code 

3- PRI SPFU TYP 1-3 0 

_9-PRI SPFL TYP M-6 0_ 

5- SEC sor/fuo code ,S29S 

6- sec SPFL TYP S-3 IQOOO 

_7-SEC SPFL TYP 9-6 0_ 

0-NEXT COMP/CABIN 7J000O0 

9-COHP NSTR 1-9 0 

"ID-COHP NSTR 10-18 0 

I 1-NCFL/NLFL/NPASS **01 

'12-PRJ VlsC/DEHSITY 0 

13-PRI OP/OP/OP/DP 0 

ih-sec vjsc/oensity 0 

“15-sec OP/OP/OP/DP 0 


80 

GASHI X 

6000000 


-7902 

0 



7500000 


83 

SPLIT 

JpOOOOOO. 

8500 
10000 
0 _ 

0 

10000 

0^ 

8600000 

20000000 

O' 






1 / ' 



component no, * 

r SUBR . type 

VR 

i^cTOTAL PRI flow P 
f ; 2 ~ TEMPERATUrE R 

3-duct outlet p — I- 

y m-comp outlet p m 

b^non-cono flow a 
" 6-CONO VAP FLOW R_ 

T 7-COND LIO FLOW ' Y' 

a-N-C SP HEAT 
9-N-C HOL WT 5 

IO-OXYGEN flow _ I 
11-DILUENt flow D' 

12 - C 02 flow E 

13- trace cth flow 

H-SPCL FLOW \ 0 

13^SPCL Flow 2 ^ 

I J6-5PCL flow 0 T 

17-SPCL Flow ^ a 
IG-SPCL flow 5 _ 

r 17-5PCL flow 6 

in 

^ 20 «* T 0 TAL sec flow s 

21 -temperature e 

^^^^22-OUCT OUTLET P ‘ C“ 
23-.C0MP OUTLET P 0 
2M-NON-COND FLOW N 
25-CDNO VAP FLOW D 
26-COND LIO FLOW "A“ 

27 - N-C 5 P heat R 

28 - N--C mol WT Y 

29 - OXYGEN flow 

— 30-^OILUENT flow 5' 

31- »*C02 flow I 

32- TRACE CTM flow D 

33- sPCL Flow i E 

T 3H-SPCL flow 2 “ 

35- SPCL Flow 3 D 

36- 5PCL FLOW R A 

37- 5PCL Flow 5 t 

r 3B-SPCL Flow 6 a' 


39-OH, Cl DP 

PRI 

P 

,000000 

#000000 

40-LE, n, k 


R 

•oooogo 

f COGOGO 

<(|-FF area ■ 


E 

“ ,000000 

■ doooqo 

H2-0H, C, DP 

PR! 

5 

•ooocoo 

•ccoooo 

43-LEi N, K 

hh-ff area 

COMP 

5 

•□ooogg 

•ocoooo 

♦CCCOgg 

.CCOOPO 

'45-OH, C, DP 

' SEC' 

c’ — 

“ ,000090 

•9GG0C0 

**6-LE» N, K 

duct 

0 

•cDCogg 

, 9 goo'^n 

*}7 ^FF area 

E 

•oococo 

•OCDODO 

::i 4 8t*0H, C| DP 

SEc 

F 

• ocsoogg 

•CDCOOO 

H9-LE, H, K 
SO-FF area 

COMP 

f — 

“* ,000000 ■ " 
•OCOOOO 

,000090 

•cooooo 


□OODOO 
OOOOOQ 
000000 ' 
ooooc^o 
000000 
OOOQOO 
DDCCCO 
Q0C0?0 
ODOCOQ 
000000 
OCDODO " 
OODOQO 

occooo 

000000 

OOOGOO “ 

OOCOCD 

OCOOCQ 

ocooco 

OOOCCO 

oocooo 

000003 

0 0 n C ? 0 
ooccco 
cue GOO 
ocoooo 
000000 
ccoo :o 
oocooo 
lOODCiOO 
lOOOOF'O ' 
iCOCCCO 
lOCOCfon 
•000000 
'OOCOOO 

»oooooa 

'OODDOO 

iDCOCCO 

rOOCOOO 


#R3C 
7B*2hH^ 
'9HO#OOQ^ 
9VO»ODO 
*000000 
♦GOOOOD 
"*”00000 ■ 
♦oocooo 
,000000 
•ocoooo 
‘ *ncCOOO ^ 
♦OCOOCQ 
,000000 
,000000 
'•OODOOO " 
♦OOCOng 
,000000 
,”00000 
"•CGCOOO 

9476985 
7 5 . 25 M*I 

" H 5 , oono ' 

^ 15.0000 

•ocoooo 
*000000 
“ ,000000 
•000000 
,000000 

• ccoooo 
" *000000 

• ocoooo 

• CODGOO 

• OOCOGO 

’ •ccooco 
♦000000 
, gOOQnQ 
, 0000”0 
■'.CCOCOD 


•OGOOOO 
, ooDCog 
"', 000000 '“ 
9^0,000 

•ogecoo 
,000000 
"fOOOODO ■ 
•OOOGOO 
•OGOOCO 

, ocoooc 
"♦CCODOO ^ 
•000000 
♦ O^COno 

•ocoooo 
" •oggoog^ 
•occegg 
•ocQOog 
♦000000 
"f OOOOCD ' 

#000000 

•OGOOQD 

"•00000^“ 

•OGOOOO 

• occoc ^ 

• cgccco 

" ,000000” 

• c g c G g 0 

• OOOOGO 
tOGOCOQ 

“* , Cgnnnn " 

•CCGGOg 

• OGOOOO 

• oocoog 
" ,O?D 0 gn 

•COOOOO 
• occegg 

tQnnpnn 

tOOGOOD 


51 -COMP SOURCE TEMP " 


• 000000 


75*0000 


,000000 



*000000 
•oooono 
■“• gooong " 
,000000 
•ooegno 
•oeggoo 
",Gognco ■ 

• gccof'O 
,000000 
,000000 

"•000000 ' 
♦GOOonn 

•OOOOPO 

•ocoono 

- , f * L * n«nO ■ 
•OGCCOO 

•ccoooo 

•ooegno 

^•ocoono 

•oooono 

• gODgoo 
"•COOCGO ' 

•COOGOO 
• OGGOOO 
•OGCOPD 
" • 7 D 000 D ■ 

, gooc ”0 

•ODCDOO 

♦oooono 

"•GOOOOO- 

•oooonc 


•COOCQO 
05 *0000 
"^‘tO.DOO- 
**5,0000 

•ocoooo 

•OOOCGO 

^♦oo””Og "" 
♦ooggoo 
•ocoooo 

♦OnnooQ 

“•GDgCOO*“ 
,000000 
,000000 
•OOCGOO 
^•OggnQn " 

• eggeog 

•OGOCOg 

•ocgcoo 

”,CCOCOO^ 

,000000 

,000000 

■"• oogooo " 

♦OOOGOO 

• oogcoo 

, gggeog 

“■,000006' 
, gnj^nog 
•ocgggg 

• onoooo 
”• ogggoo ' 

•oocooo 

•OODOGO 

•gggeog 
“•cegegg ■ 
•eggnog 
• gp^gCg 

•ogggeg 

“-,000000“ 

•ocGOog 
•GOgCGO 
— .egggoo" 
•Gogcog 
4 gnop gn 

•ocgpca 

"^•Gggggg 

• g g ” n c g 
•oogneo 
lOogc'^g 

'“• oogoQo ' 

•000000 


•nocooo 

160.900 
'** 5 , 0900 “ 

Mz -ogpg 

• ou^jggg 

,DCCCPO 

”*4 Pcrpgn 

•poppgg 

•PCOPOO 

• 009^00 

“• nooogg '^ 

•OOOGOO 
• 900 PPC 
.GPOPOn 
"■•nncpgg " 

4 pppngn . 

♦ gpppgg 
•ngccoo 

"‘•000900 “ 

.000900 
•nonono 
— ; rnpnnn ‘ 

.oooono 

4 *:* n{>pnn 

•900900 

■"♦ngeren ' 

•GOrnng 

• ggo^gg 
.oDCpro 

'“•PDGgng ' 

4 nPQPn n 

.DGCnrO 
•rnognn 
“• oenggn '^ 

• cocr'ng 

• 990099 
•CGOpng 

“. 900000 “ 

•ooorno 

• 000990 

""♦ PQ 0900 ■ 

• ngcppg 

^ r * n P n n n 

4 Pncpnn 

‘'•000999 

•nngnnn 

, noogrn 
•googng 
“". ggOGGO " 
•nooGoo 


95 

FTRAY 

*000000 
•000000 
''# 000000 ” 
• 000900 
#000000 
,000000 
‘ • OOOgng 

f 099960 
,gnnpoo 
•coggoo 
*, coeggo' 


. . 96 

— ALTCOH- 

75 , 0 n 00 

37,0000 

" t « o , noo -“ 

240 .POO 
•OOOPDO 
•ooGnno 
"•pnnnnq *■ 
• 0009 CO 
•nooppo 
•OOCCOO 
",900090 “ 


• 000000 

•POOnno 

•oocnoo 

" .DOOPOO 

♦ooonoo 

.coonno 

• OOOnnn 

.ogpreo • 

♦ GOgnno 

• pgg^pg 

•CODCno 

, CPPnnn 

•000900 

4 oopngn 

• OOOGOO 

• nggnOO " 

,000000 

•ooonoo 

.OOOCOO 

•nooroo 

♦ COpnPO 

•cuoroo - 


, GOOnco 

* GCC 9 gQ 
♦ OCC^ng 


•coonno 

4 rignorjg 
, n g n -1 g g 


.connen 

.000990 


♦ Pppnnn 

.CCOPCC 


, Googgo 

•GGOPOg 


t 0009G0 

,COPrOO 

« 

• GOCOOO* 

, G OOO 09 


♦CDCngo 

♦GOCPGO 


•conono 

•roonno 


♦ 0 00 nnij 

* gOOpng 


•COOPPn 

. 99p”G0 


• CQCnOo 

4 ponrno 


• Geo <;i9q 

• r n g r 9 g 


f p n 0 n n 6 

*66c90g 


,000000 

,DOCnCO 

'' 

,000000 

•ODOnno 

70 

fD 

•COCpgg 

•pog^od 

< 

DDCPOO 

400nnri0 

' * 

•ooegoG 

•GC?9gg 

tn 

• ogpnoo 

4 cn 9p P n 

H) 

, oggnnn 

• DOD^'nn 



♦ OCDnnp 

•oooono 

•OQOOOO 

"■OOGGQO' 

•OGOOOO 


• g 099 gQ 

, noGPOO 
•ggoooo 

'•DOOPOO 

•ooonoo 


• 000000 ' 


-', 000000 " 


looonoo 


\ 


V 





■ 

' 

V 


— S-SeC~SOR/FUO-CODE- 
i-SEC SPFL TYP 1-3 
7-SEC SPFL TYP iJ-6 

~8-NE7T‘ COMP/CAaiN*" 

9-COHP NSTR 1-9 
JO-COHP NSTR 10-18___ 

I I-NCFU/Nuru/NPASS 

12-PRI VISC/DENSITY 
■J3-!-PRI 0P/0P/0P/DP‘“ 

M-SEC VIsC/OEHSITY 
IS-SEC OP/DP/OP/OP 


~-R500- 

10000 

0 

noDOoo" 


10000 
• 0 

7200000“ 


•9800000“ 

200000 

0 


-9000- 

10000 

0 

“93'DODOO“ 


9900000“ 

1 10100000 
0 


9500000- 

Tioiooooo 

0 


-9700000- 


subroutine dependent k array data - 


^ KRI 90. 16)' 

tn KRI 95, 18)1 

AD 


KRI 91, 16)' 
KR( 


KR| 91, 17) 


KR{ 9Si 16)« 


95, 17)» 
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I 23 
cn 2 h 
<=> 25 

26 


COMPONENT N 0 ,_« 

subr , type 

VR ^ „ 

l^TOTAL PRI FLOW P 
2 -TEMPERATURE _.R 
“ 3 -ouct outlet P I 

^-COMp OUTLET P H 

5 ^ non - Co NO flow a 

6- CCND VAP FLOW R 

7- COND LIQ FLOW Y 

b ^ n-c sp heat 
9 - N-C « 0 L WT S 

10 - OXYGLN flow I . 

11 - diluent flow 0 

12 - C 02 FLOW E 

13 - thace cth flow 

P 4 -SPCL Flow I 
is^SPCL Flow 2 a 

U - 5 PCL flow 3 T 

17 -SPCL flow H a 

16 -spcl Flow s 

19 -SPCL Flow 6 


-TOTAL SEC FLOW 5 

-temperature _ E . 
-DUCT Outlet p 'c 
-COMP outlet p 0 
- non-cond flow n 

-CONO VAP FLOW _D 
• COND LtO FLOW * A " 
- N-C SP heat R 
• N-C mol wt y 
-oxygen flow 
-diluent flow 5 " 


1 -C 02 Flow I 

)-TRACE ctm flow d 
S-SPCL flow I _ E _ 
4 -SPCL FLOVIf 7 ' 

i-SPCL Flow 3 0 

^-SPCL Flow r a 

r-SPCL flow 5 T 

3 -spcl Flow 6 a 


39 - DH » 
* 4 Q - LE » 
■ 9 1 -FF 

H 2 *-OH I 

R 3 - LE 1 
HM-FF 
H 5 - 0 H I 
RA-LE I 
R 7 -FF 
qa-DHi 
R 9 - LEi 
50 -FF 


c » DP 
N , K 

area ' 

c , dp 

N * K 

area 
c , DP 
N , K 

area 
c » DP 
N » K ‘ 

area 


PRI P 
_ DUCt_R . 

PRl S 
CFHp S 

SEC 

OUCt 0 
E 

SEC F 
" COMp ^ F ’ 


97 

CHtLLW 

75.0000 

* 10 # 1372 _ 
" 2 H 0.000 
2 « iO»OnQ 
f aOOODO 
.OOCCCQ ^ 
^ • CODOCO 
tOODCOO 
.000000 

• ooocco _ 

■* .000000 

.000000 

,000000 

• CC 0090 
^.OOCCQO ' 

.occcoo 

• ooocco 
.ooocco ^ 

’ .OQCOCO 

•000000 

f OOODOO 

^ . oocooo ' 
.ococco 

• DOOCOO 
.000000 
**^,000000 " 
•GCCOCO 
. 0000*^0 
.OGCCQD 
.000000 ■ 
.OOOOCQ 
f OQOQOO 

•oocooo 

.GOOCDO 

.ococco 
•000000 
f oocooo 
”■'.000000 

•ooooco 
.000000 
.oocooo 
. ooooco 

. DGOOOQ 

.ococco 

“NOCOOOO 

.OOCDCO 

♦OODOOO 

. oocooo 
.000000 
.000000 


I 0»2000 
75 . 25 * 4 ^ _ 
' 9 * 10.000 
9 tiC .000 
•OCOOOO 
.OOCDCO 
'•CCCODC " 

.cccoco 

•ccooco 

• rcccco _ 

“ .GCCDCO 

pCCOOCO 
fCCOOCO 
, nonnnQ 

^ , 6 ccc 6 o ^ 
•cccoao 
•CCCOOD 

• ccccoo „ 

*'♦000000 

•000000 

• oocooo 

“.CCCCCO " 

.000000 

• OGCOCO 

« non Qc»Q 

"'.olcooo " 
♦cccoco 

tCOOOOO 
.OCOOOO 
■■ tCCCODO 

•ccooco 
.000000 
• ccooco 
“'• ccooco '' 
.cococo 
.ccooco 

•CCCCCO 

"".000000 

•cooooo 

•cococo 

“ ^ pnn nnn * 

•occood 

♦ OCO. CO 

,000900 

•ooooco 

•ccooco 

.cooooo 

•000000 

■^♦cooooo 

.000000 


•000000 
69*7560 
'^ M * 7 D 00 
i * 1 . 7 D 00 
.OCOOOO 
* OGCDCO _ 
"• OOCOCn 

• 2 H l 29 ^ 

23 . 8 B 5 1 

• ooi !? non _ 

■ oDOOCDO 
.OOOCOO 
♦OODOOO 

• DOOOO ^ _ 

"♦oocccd 

•oocooo 
•occocc 
•oocnoo 
' *000000 - 

•OOOOGO 
69.7560 
“ 14 . 7000 “ 
I 4.7000 
•ococco 

• OO '^ 0 ^^ 

" .DOGOdo “ 

• 2 *n 27 M 
23.8651 

.Conoco 

* lOCOOOO 

tOOOOOO 

•ocooon 

•CCOOCO 
“ ♦ 0 ^ 00 ^^ 
.OCGDOO 
♦ CCCCCO 

•COCDCO 

"* .oocooo ‘ 

♦OOCOOO 

•ocooon 

“". cooooo ' 
• ooooco 
♦ccooo^ 
.OCOOOO 
' .CCGCOD 
♦ooccco 
•Dococn 
•oocooo 

.OOCOnn 

.000000 



* 5 l - C 0 HP SOURCE ' TEMP ' 


4 I .2864 


75.2075 


* 000000 " 



•000000 

57.0767 

“"•231594 

.231594 

.000000 

♦ 000000 

' , OnonQn 

• 24 I 294 
28.8851 

.009009 

• 0 0 ^ F D D 
•QCDOOO 
♦GOCOGO 

• odooco 
".orcooo’ 

• oocooo 

• cccdcc 

• ccccoo 

”.000000 

. 305539-01 

57.0767 

23 1594 

,231594 

. 000 ^ 09 ^ , 


.OOQODO 
.OOCOOO 
'.OOCCDO *■ 
• QCOOCO 
•OCnCCn 

.OOCPCO 

•. OOCCCO ' 

.OOCCCO 

.coocoo 

♦OODDDO 

“■. OOODOO ' 

♦OODOOO 


•OOCOOO 

, pr rinnQ 

“ iClOLvDO ^ 

•OOCCCO 

• c codec 

• COpnnn 
*• COPC ^” 

• CCodcD 

•rorrrn 

"• nopnro “ 

•noodoD 
• OOOCOO 
•COOdne 

rnpAcrj 

♦pnrnnn 

• CCCCCO 

_• nnfdcd 

•coocoo ' 

•dooono 

.oooono 

nncnnn 

.OOPnCG 

•ccoccc 

. p nnn — n 


’“.oocooo 

^ nrjpnrn 

• oonooc 

.ddrcod 

♦ 100000-29 

•OOOCOO 

• oonron 

, nopnno 

" .coccoc * 

•coccoo 

.OOCOOD 

• ococco 

•oennee 

, ndenen 

g nnrrp pn 

g pnnnnn 

— g p p T n n n ' 

■ g p n p p p n 

.cocccd 

.no one 5 

. ccccco 

. ooccnc 

♦ dcccoc 

. nnpnnn 

"•OCOOOO 

. nonnno 


• oonooo - 
• 000*^00 
'• ncicond " 

, n M n n a'n 
. pnpnon 

, noFpnd 

■ • cocoon 

♦cDcddr 

.OOCCOP 

.cooooo 

“•DOGCO<) 

.000000 


•OCDOOG 
•OOOOQQ 
“♦ODonoo” 
•ooocco 
♦ ococco 
. ooonoD 
* *000000 
. coedoo 
•ooondn 

.POOnno _ 

“.OOOCOO 

♦oooono 

• DODOnQ 

♦oocnoo 

■ .oonmo ' 
♦ooccoc 
•cococc 
.oooono 

■ .000000 “ 

♦OOOOQQ 

♦Oocooo 

-.Oponoo ' 

•oocnoo 

, p 9 n no n 

♦ C n p n n 

-.odennn 

•OCCCOO 

♦OOOCOO 

♦ oooono 

" .000000 ' 

♦ opccoo 

. OOCOnn 

• CoennQ 

’ tODpnnn 

.ODoddc 
♦CDcnoo 
. ocopoc 

“"♦OODOOO ' 

•oooono 
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